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Vorwort 

Der vorllegende Text wendet sich an den in der Benutzung von EUMEL (und 
ELAN) erfahrenen Program mierer. Auch dieser wird vor naiver Benutzung von 
REMIS gewarnt und zu sorgfaitigster Programmierung ermahnt. Vor der Erstel- 
lung einer ernsthaften Anwendung sollte er die erforderlichen REMIS - 
Funktionen ausprobieren. REMIS ist (auch aus Performance - Grunden) gegen 
unordentliche Benutzung nicht abgesichert. 

Hinweise auf mdgiiche Fehler werden in das Handbuch eingearbeitet. 



Hinweise an: U. Schneider 

do GMD, Z2.W 
Postfach 1240 

D-5205 St. Augustin 1 



Tel.: 02241/14 2475 



Uberblick 
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1. Uberblick 

Das REMIS - Datenmodell 
Datenstruktur 

In einer REMIS - Datenbank werden Objektklassen (CLASS) eingerichtet. 

EIner Klasse werden Segmente (oder Felder) (SEGMENT) zugewiesen. 

Zu einem Objekte einer Klasse gehdrt aus jedem zur Klasse gehdrenden 

Segment ein Wert. 

Insoweit entspricht die REMIS - Datenstruktur der Datenstruktur des Relationen- 
modells. 

Segmente kOnnen vom Typ TEXTSEGMENT, INTSEGMENT oder 
REALSEGMENT sein und jeweils Werte des entsprechenden ELAN - Datentyps 
aufnehmen: 

TEXT variabel lang, maximal 32 000 Zeichen 

INT ganze Zahl zwischen - 32 768 und + 32 767 

REAL Gleitkommazahl mit 13-stelliger Mantisse 

und Exponenten zwischen - 126 und + 126 
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Weiterhin bletet REMIS (fthnllch Codasyl - Datenbanksystemen) die M6gllchkeit, 
Bezlehungen zwischen Objekten zu verwalten. Hlerfur gibt es noch die Seg- 
menttypen REFSEGMENT und GROUPSEGMENT, die Werte der in REMIS defi- 
nierten Datentypen REF und GROUP aufnehmen kdnnen. 

Ein REF -Wert (Referenz) ist ein intemer Ojektbezeichner *), 
ein GROUP -Wert eine Menge von internen Objektbezeichnern. 

REMIS bietet keinen wahlfreien Zugriff auf Objekte uber Segmentwerte an (nur 
eine Suchfunktion, die auf sortierten Objektmengen binar sucht, sonst fortlau- 
fend). Fur schnellen Zugriff auf zu einem Objekt gehfirende andere Objekte 
sollten REF- und GROUP -Segmente eingerichtet werden. Anders als bei 
Codasyl - Systemen ist die Verknupfung von Objekten in REMIS nur einseitig 
gerichtet. Mit anderen Worten: Wenn bei einem Objekt eine Referenz auf ein 
anderes Objekt eingetragen wird, dann wird von REMIS nicht auch beim 
referierten Objekt eine Referenz in Gegenrichtung (auf das referierende 
Objekt) eingetragen. 



* ) Interne Objekt - Bezeichner 

Man kann sich die Realisierung einer Klasse als Tabelle vorstellen, in die die 
Objekte eingetragen werden. 

Objekte behalten, solange sie existieren, ihren festen Platz innerhalb der 
Tabelle. Daher kdnnen sie innerhalb von REMIS eindeutig durch die 
Angabe ihres Tabellenplatzes bezeichnet werden. Mithilfe der gleichen 
Angabe kOnnen sie auch schnellstm6glich erreicht werden. (Wahlfreier 
Zugriff, etwa uber Inversiisten, ist nicht realisiert.) 



Uberblick 
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Die REMIS - Begrlffe entsprechen Begrlffen aus anderen Datenmodellen in etwa 
wie folgt: 



REMIS Datei 



Relationenmodell 



Codasyl 



Klasse (Datei) 

Gruppe Datei 

Objekt Satz 

Segment Feld 
Referenz 



(Relation, Tat>elle) 

Relation, Tabelle 
bzw. View 



Tupel, Zeile 
Attribut, Spalte 
Cursor 



(Satzart) 

Satzart 
(Subschema) 
+ Set 

Satz 

Feld 

current of 
run - unit 



Anmerkung: 

Die der Klasse entsprechenden Begriffe stehen in Klammern, da durch 
Datenmanipulationsanweisungen Objekte nur als Gruppenmitglieder 
erreicht werden kdnnen, nicht aber als Klassenmitglieder (s.u.). 
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Ein Beispiel 

Es soil eine Datenbank eingerichtet werden, mit der insbesondere der Bereich 
Ausleihe in einer Schulbibliothek unterstutzt wird. 

Diese Datenbank sollte Daten uber den Buchbestand der Bibliothek enthalten 
und Daten uber Auslelhen: 

Daten uber Bucher 
Signatur (Nummer Oder Bezeichnung eines einzelnen Buches) 
Autor 
Titel 
Verlag 

Erscheinungsjahr 

Daten uber Ausleihen 
Signatur 
Ausleihdatum 
Ausleihername 
Ausleiheradresse 

Oder mit anderen Worten: In der Datenbank mussen verwaltet werden 
Datengebilde Oder Objekte, die ein Buch beschreiben und 
Datengebilde Oder Objekte, die eine Ausleihe beschreiben. 



Uberblick 
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Da In der Schulbibllothek sicher viele Werke In mehreren Exemplaren vorhanden 
sind und in mehreren Ausleih - Objekten derselbe Auslelher aufgefuhrt wird, 
wurden viellelcht besser folgende Objektklassen (Menge glelchartiger Objekte) 
eingerichtet: 

WERK - Objekte EXEMPLAR - Objekte BENUTZER - Objekte 



Werknummer 
Autor 
TItel 
Verlag 

Erscheinungsjahr 



SIgnatur 
Werknummer 
Ausleihdatum 
Benutzernummer 



Benutzernummer 
Name 
Vorname 
Adresse 

(fur Schuler: Klasse 
fur Lehrer: "L" 



Zwischen diesen Klassen gibt es Bezlehungen, die dadurch dargestellt sind, daB 
in den EXEMPLAR - Objekten auch die Werknummer und die Benutzernummer 
aufgefuhrt sind. 



Diese Beziehungen haben folgende Bedeutung: 
W Werkexemplar 

umgekehrt gelesen: 1st Exemplar von 
A ausgeliehen an 

umgekehrt: hat ausgeliehen 



HIerfur sollen folgende Integritdtsbedingungen gelten: 
W1: Zu jedem WERK-Objekt gibt es mindestens ein EXEMPLAR - Objekt 

(mit derselben Werknummer) 
W2: Zu jedem EXEMPLAR - Objekt gibt es ein WERK - Objekt 
A1: Zu jedem EXEMPLAR - Objekt im Zustand "ausgeliehen" muB ein 

BENUTZER -Objekt existieren 

(d.h. im EXEMPLAR - Objekt und im BENUTZER - Objekt mussen dieselbe 
Benutzernummer stehen) 



1 W 1 0 A 0 

WERK EXEMPLAR BENUTZER 

1 n n 1 
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Fur diese Ahwendung kfinnte eine REMIS - Datenbank mit folgender Daten- 
struktur eingerichtet werden: 

(Objekt-)Klasse WERK mit den Segmenten 
autor 
titel 
verlag 

erscheinungsjahr 

exemplare (* Gruppe der zugehdrigen Exemplare *) 



(Objekt-)Klasse EXEMPLAR mit den Segmenten 
signatur 
ausleihdatum 

werk (* Referenz auf zugehOrige Werkdaten *) 

ausleiher {* Referenz auf Ausleiherdaten *) 

(Objekt-)Klasse BENUTZER mit den Segmenten 
name 
vorname 
klasse 

entliehen {* Gruppe der ausgeliehenen Exemplare *) 



Uberblick 
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Datenmanipulation 

Fur Einrlchtung, Benutzung und Verwaltung mussen Programme in ELAN 
geschrieben werden. Die REMIS - Sprache ist eingebettet in ELAN. 
(FCir Datenbankabfragen steht 'sql' zur Verfugung, das aus einer SELECT - 
Anweisung ein ELAN - Programm generlert und ausfuhrt.) 

Beispiei: 

Alie Titel aus der Gruppe "alle werke" ausgeben: 

TEXTSEGMENT CONST titel := segment ("titel", "WERK") ; (^fkann entfallen^ 
REF VAR werk := first (groupC'alle werke")); 
WHILE another(werk) 
REP line; put(werk_titel) ; 
next(werk) 

PER 
Oder 

SELECT titel FROM "alle werke" 

Ein Programm kann nur bestimmte (referierte) Objekte (bzw. seine Segmente) 
bearbeiten. Es muB also zundchst eine Referenz (REF - Variable) auf ein Objekt 
positionieren. Dies geschieht durch Positionierung der Referenz in einer Gruppe 
Oder durch Lesen des Referenzwertes aus einem Refsegment. Insbesondere ist 
das Erzeugen von Objekten nur m6glich durch die Funktion "insert", die einen 
neuen Referenzwert erzeugt und in eine Gruppe einfugt. 

Eine Gruppe enthSIt eine geordnete Menge von Referenzen auf Objekte der- 
selben Klasse. Einer Gruppe werden Segmenttypen der zugehorigen Klasse in 
einer gewunschten Reihenfolge zugeordnet. Die Gruppe entspricht damit in etwa 
der herkdmmlichen formatierten Datei (bei Datenbanksystemen der logischen 
Datei, Benutzersicht (view) Oder dem Subschema). 

Die Reihenfolge der Objekte in einer Gruppe wird hergestellt beim Einfugen der 
Objekte (Referenzen) durch ein Programm bzw. durch Sortierung. 
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Beispiel 

Auf der Klasse WERK mit folgendem Inhalt 



autor 


titel 


verlag 


erschj 


Muller 


Englisch 1 


Knaur 


1975 


Muller 


Englisch 2 


Knaur 


1975 


May 


Winnetou 1 


xyz 


1890 


May 


Winnetou 2 


xyz 


1892 


May 


Winnetou 3 


xyz 


1893 



kann man z.B. folgende Gruppen definieren: 
Gruppe: alle werke 



autor 


titel 


verlag 


erschj 


May 


Winnetou 1 


xyz 


1890 


May 


Winnetou 2 


xyz 


1892 


May 


Winnetou 3 


xyz 


1893 


Muller 


Englisch 1 


Knaur 


1975 


Muller 


Englisch 2 


Knaur 


1975 



Gruppe: fachliteratur Gruppe: unterhaltung 

autor titel erschj autor titel 



Muller Englisch 1 1975 
Muller Englisch 2 1975 



May 
May 
May 



Winnetou 1 
Winnetou 2 
Winnetou 3 



Uberblick 
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Merke: 

1. Objekte stehen nur als Mitglieder von Gruppen zur Verfugung. 

2. Ein einzelnes Objekt wird durch eine Referenz (Wert elner REF - Variablen) 
bezeichnet (referiert). 

3. Der Wert elner REF - Variablen wIrd nur von REMIS, nicht vom Programm 
gesetzt. Vom Programm wIrd eIne Referenz posltioniert (first, next, last, 
prior). 

4. Eine Referenz wird im Prinzip auf ein Objekt in elner Gruppe posltioniert. 
(Wurde eine Referenz aus einem Refsegment gelesen, dann gehdrt sie 
sozusagen zu elner unbenannten Gruppe, die nur das referierte Objekt 
enthdit. Eine anschlieBende Posltionierung 1st sinnlos.) 

5. Schreib-ZLesefunktionen betreffen nur einzelne Segmente eines Objekts. 

6. Segmente kdnnen nicht unmlttelbar bearbeitet werden. Von REMIS werden 
nur Werte in Segmente eingetragen bzw. Segmentwerte ausgegefc)en. Dies 
gilt insbesondere auch fur Referenz - und Gruppensegmente. 
(Ausnahme: Operator , s.u.) 
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REMIS - Datentypen 

REF zeigt auf ein (Oder kein) Objekt 

(und ggfs. eine Position in einer Gruppe 
und ggfs. ein Standard - Formular) 

GROUP enthait eine Reihe von Referenzen 
(auf Objekte einer Klasse 
und ggfs. ein Standardformular) 

TAG (Notizzettel) enthSIt ein Formular 



Grenzwerte 

Klassen je Datenbank 50 

Segmente je Datenbank 146 minus Anzahl der Klassen 
Objekte je Klasse 15 000 

Gruppen je Datenbank 500 

Formulare je Datenbank 100 

Felder je Formular 100 



Benutzung von REMIS 

ZunSchst wird REMIS auf dem Rechner in einer Manager -Task mit dem Namen 
REMIS installiert. Unter REMIS werden Arbeitstasks eingerichtet, in denen die 
Arbeiten mit der Datenbank durchgefuhrt werden (siehe Kapitel 9.2). 

Fur die Programmierung stehen zur Verfugung: 
Datenbankfunktionen 
Formularfunktionen (Maskenfunktionen) 
kombinierte DB/Formularfunktionen 
Menue - Generator 
Abfragesprache (Klein - sql) 



Kapitel 2 13-15 



2. Kapitel entfdilt 
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3. Einrichten einer Datenbank 
3.1 Uberblick 

Es ist recht einfach auf REMIS ein Anwendungssystem zu entwickeln. im Laufe 
der Entwicklung ergeben sich jedoch meist Gesichtspunkte, die eine Anderung 
der Datenstruktur erfordern. Solche Anderungen (abgesehen vom Hinzufugen 
von Datengebildetypen (Klassen, Segmente, Gruppen)) kbnnen umfangreiche 
Arbeiten (Datenumwandlung, Programmanderung, -ubersetzung, - insertierung) 
zur Folge haben. Der Entwicklung des endgultigen Anwendungssystems sollte 
daher ein sorgfSltiger Datenbankentwurf vorausgehen, der natiirlich durch die 
Entwicklung von Prototypen sehr gut unterstutzt werden kann. 

Eingerichtet wird die Datenbank in einer Arbeitstask. Es werden eingetragen 

- die erforderlichen Datengebildetypen 

- ggf. Formularbeschreibungen. 

Es ist nutzlich, die Datenbasis mit Daten- und Formularbeschreibungen zu 
sichern. AbschlieBend sollten fur die weitere Arbeit die Segmentnamen zur 
Verfugung gestellt werden. 



EInrichten einer Datenbank 
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3.2 Datenbeschreibung 

Bevor mit der Datenbank gearbeitet werden kann, mussen die erforderlichen 
Klassen, Segmente und Gruppen eingerichtet werden. 

Da Zugriff auf Objekte nur uber Gruppen moglich ist, ist je Klasse min- 
destens eine Gruppe erforderlich. 

Fur eine Gruppe werden die uber diese Gruppe erreichbaren Segmente der 
zugeh5rigen Klasse festgelegt. 

Die Eigenschaften (zugeordnete Segmente, Standardformular, ...) von 
Gruppen, die in GROUP -Segmenten abgelegt werden, werden fur eine 
Beispielgruppe deklariert, die dem GROUPSEGMENT-Typ zugeordnet 
wird. Beispielgruppen sollten nicht zur Verarbeitung benutzt werden, also 
leer bleiben. 

Mit den u.a. Prozeduren sollte in einer Datei ein ELAN - Programm erstellt 
werden. Es legt bei Ausfuhrung (run) in der Datenbasis eine Datenstruktur- 
beschreibung (Schema) ab. Mithilfe dieser Prozeduren konnen jederzeit weitere 
Klassen, Segmente und Gruppen in die Datenbank aufgenommen werden. 
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Anmerkung: Im Folgenden sind unter Namensparameter (...name) Textkonstante 
(z.B. "abc") zu verstehen. 

Klasse einrichten 

new class (klassenname) 

Anmerkung: Segmentnamen mussen in der Datenbank eindeutig sein. 

Sle sollten den Namensregeln fur ELAN entsprechend gebildet werden, 
damit sie auch als Variablennamen verwendet werden kdnnen. 

Segment einrichten 

new segment (segmentname, klassenname, standardwert ) 
richtet ein: wenn standardwert vom Typ: 
INTSEGMENT INT 
REALSEGMENT REAL 
TEXTSEGMENT TEXT 

new segment (segmentname, klassenname, 

name der referierten klasse, referenz) 
richtet ein REFSEGMENT ein; 

referenz muB nilref sein cxjer ein Objekt der referierten Klasse referieren. 

Gruppe einrichten 

GROUP VAR g := new group (klassenname, gruppenname) 

Gruppensegment einrichten 

new segment (segmentname, klassenname, gruppenvariable) 

richtet ein GROUPSEGMENT ein mit den Eigenschaften der durch 

gruppenvariable (z.B. g) bezeichneten Beispielgruppe und einer leeren 

Gruppe als Standardwert. Gruppenname und segmentname mussen gleich 

sein. 



Einrichten einer Datenbank 
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Einer Gruppe Segmente zuweisen 

add group segment (gruppenvariable, SEG segmentname) 
all class segments (gruppenvariable) 

ordnet der Gruppe alle noch nicht zugeordneten Segmente der zugehorigen 
Klasse zu in der dort vorliegenden Reihenfolge (wichtig fur sort) 

Konversionsmethode festlegen 

Zur Erieichterung der Programmierung werden von einigen Datenbankfunktionen 
INTSEGMENT-Werte in Texte konvertiert und umgekehrt. Folgende Konver- 
sionsmodi stehen zur Verfugung: 

modus innen auBen 

0 zahl als text 25 "25" 

1 Konversionstabelle 2 "Frau" 

2 Datumskonversion -1396 "06.03.84" 



Es gebe die INTSEGMENTe "anrede" und "ausleihdatum": 
Modus 0: Standardwert 

Modus 1: new methode (SEG "anrede'*, 1); 

new conversion table entry (SEG "anrede", "", 0); 

new conversion table entry (SEG "anrede", "Herr", 1); 

new conversion table entry (SEG "anrede", "Frau", 2) 
Modus 2: new methode (SEG "ausleihdatum", 2) 
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Eine Beschreibung des erzeugten Schemas kann erstellt werden durch: 
dblist 

Die Beschreibung wird in einer Datei ("DB-list") erzeugt und durch den Editor 
angezeigt. Sie kann gedruckt werden mit dem Editor - Kommando: 
ESC ESC print 

Segmentnamen zur Verfugung stellen 

insert declarations 
Die Segmentnamen stehen anschlieBend fur die Programmierung in dieser 
Task (und ihren Sdhnen) zur Verfugung. 

Weitere Prozeduren zur Bearbeitung des Schemas sind im Anhang aufgefuhrt. 



Einrichten einer Datenbank 
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3.3 Formulardefinition 

Formulare (TAGs) werden in der Datenbank aufbewahrt und uber einen Namen 
identifizlert. Fur Erstellung bzw. VerSnderung eines Formulars stehen die 
Dialogfunktionen 

design form 

design fields 

zur Verfugung. Fur die Erstellung eines neuen Formulars ware damit z.B. 
folgendes Programm zu erstellen: 
TAG VAR t; 

TEXT VAR name; 

nil(t); 

design form(t); 
design fields(t); 

putC'Bitte Formularnamen eingeben"); 
get (name) ; 
store tag (t, name) 

Formularvariable definieren 
TAG VAR t 

Leeres Formular definieren 
nil (t) 

Formularbild entwerfen 
design form (t) 

Das Bild von t wird in einer 
haben folgende Zeichen eine 
blank DURCHSICHTIG 

! BLANK 
< INVERS AN 
> INVERS AUS 



Textdatei zur Bearbeitung mit edit angeboten. Dabei 
besondere Bedeutung: 

hier wird bei der Formularausgabe der Bildschirm 

nicht verandert 

hier wird ein blank ausgegeben 

ab hier erfolgt die Ausgabe in Invers-Darstellung 

ab hier erfolgt die Ausgabe normal 



Fur die Darstellung von BLANK, INVERS AN, INVERS AUS konnen mit der 
Prozedur "trans" andere Zeichen vereinbart werden. 
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Formularfeider (fur Daten) definieren 
design fields (t) 

Vom Benutzer sind nacheinander einzugeben: 

1 . Feldnummer (oder ESC (beenden) oder anderes) 

2. Feldanfang: Cursor positionieren, RETURN 

Der Cursor kann auch durch Eingabe eines im Formularbild vorhandenen 
Zeichens auf das ndchste dieser Zeichen (in Schreibrichtung) gesetzt 
werden. 

3. Feldende: Cursor positionieren, RETURN 

4. ESC Oder Wiederholung von (1) und (2) zur Definition weiterer Toil- 
felder 

Ein Feld kann aus mehreren Teilfeldern (jeweils in einer Zeile) zusam- 
mengesetzt werden. Die Schritte (2) bis (4) werden wiederholt, solange 
hier nicht ESC eingegeben wird. 
5 . Feldeigenschaften 

- geschutzt (keine Eingabe uber dieses Feld) 

- geheim und Ausgabezeichen 

Anstelle jedes in diesem Feld auszugebenden Zeichens wird das Aus- 
gabezeichen ausgegeben. 

- Segmentnante oder symbolischer Feldname (numerisch) 

- Auskunftsnummer (Nummer einer diesem Feld zugeordneten Erkldrung 
Alle Eingaben werden mit RETURN beendet (oder ESC, wenn keine weiteren 
Angaben gemacht werden sollen (s.a. Kap. 4.3). 

Formular speichern 

store tag (t, name) 

speichert t unter dem Nannen name 

Weitere Prozeduren zur Formularbehandlung sind im Anhang aufgefuhrt. 



Programmieren 
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4. Programmieren 
4.1 Uberblick 

Ein Programm arbeitet im wesentllchen mit den REMIS - Elementen Segment, 
Gruppe, Referenz. Segmente und Gruppen haben bei Einrichtung der Datenbank 
(externe) Namen bekommen. Diese mussen fur den Zugriff in interne Bezeichner 
(Adressen) umgesetzt werden. Damit dies nicht bei jeder Operation geschehen 
muB, verwenden viele REMIS - Operationen als Parameter interne Bezeichner, 
die sich das Programm vorher von REMIS ubergeben lassen muB. Dem ELAN- 
- Programmierer wird die zu verwendende Technik sicher aus folgendem 
Beispiel klar: 

SEGMENT CONST autor := segment ( "autor" ) ; 
REF VAR werk:=first(group("wgr")) ; 
put(werk_autor) ; 

gibt den Autor des ersten Werks in der Gruppe "wgr" 

auf dem Bildschirm aus 

Definition von _ (siehe Anhang): 

TEXT OP _ (REF CONST r, SEGMENT CONST s) 

Die Definition von Segmentbezeichnern kann entfallen, wenn in der Task (nach 
Laden der Datenbank) 

insert declarations 
ausgefuhrt wurde. AnschlieBend stehen alle (externen) Segmentnamen als 
Segmentbezeichner zur Vefugung. 

Die Funktionen zur Bearbeitung der Datenbank (lesen, schreiben) sind (wenn 
nicht Formuiare verwendet werden, s.u.) auf einzelne Segmente eines bestimm- 
ten Objekts (Datensatz) bezogen. Objekte werden nur uber Gruppen zur Verfu- 
gung gestellt. Einzelne Objekte einer Gruppe werden bezeichnet (referiert) durch 
dieser Gruppe zugeordneten REF - Variable. 
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Im Programm werden also zunachst REF- Variable definiert, einer Gruppe 
zugeordnet und in der Gruppe positioniert. Einer Gruppe konnen mehrere 
REF -Variable zugeordnet werden. 

AnschlieBend konnen Objekte behandelt werden: 

- Objekt aniegen 

- Objekt loschen 

- Objekt in Gruppe einfugen 

- Objekt aus Gruppe ausfugen 

- Gruppe leeren 

- Gruppe sortieren 

- Segment schreiben 

- Segment lesen 

REMIS enthalt Funktionen, die es gestatten, Daten uber vordefinierte Formulare 
vom Bildschirm einzulesen bzw. auf dem Bildschirm zur Vearbeitung anzubieten. 
Ebenso kSnnen Formulare fur die Datenausgabe verwendet werden. Fur die 
Bearbeitung von Datenbankdaten uber Formulare stehen besonders komfortable 
Funktionen zur Verfugung. 

Ein Formular wird von REMIS in einer Variablen vom Typ TAG (Notizzettel) 
aufgebaut. Formulare konnen auf dem Bildschirm bearbeitet oder auf ein Pin- 
board geheftet werden, auch neben- und ubereinander. Das zuletzt ausge- 
gebene Formular uberschreibt die vorhergehenden auBer an den 
DURCHSICHTIGen Stellen. Das Pinboard kann auf ein Ausgabemedium (z.B. 
Datei Oder Drucker) ausgegeben werden. 
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4.2 Datenbankfunktionen 

Im Folgenden wird fur externe Namen, die als Textkonstante zu ubergeben sind, 
die Bezeichnung '...name' verwendet, sonst sind interne Bezeichner gemeint. 

Segmentbezeichner definieren (gegebenenfalls): 

SEGMENT VAR s := segment (segmentname) 

SEGMENT VAR s := segment ( segmentname , klassenname) 

Gruppenbezeichner definieren (nicht immer erforderlich) 

GROUP VAR g := group(gruppenname) 

REF- Variable definieren und positionieren 

REF VAR r := first (group (gruppenname) ) 
REF VAR r := last (group (gruppenname)) 

REF positionieren 

next (r) : n^chstes Objekt der Gruppe 

prior (r) : vorhergehendes Objekt der Gruppe 

first (r) : erstes Objekt der Gruppe 

last (r) : letztes Objekt der Gruppe 

first (r, segmentbez = suchwert): 

erstes Objekt der Gruppe, das im angegebenen Segment den angegebenen 
Wert enthait. Falls ein solches Objekt gefunden wurde, zeigt r auf dieses 
Objekt, andernfalls bei nach dem angegebenen Segment sortierten Gruppen 
auf das nSchste, sonst hinter das letzte Objekt der Gruppe. 
next (r, segmentbez = suchwert): 

wie first, jedoch wird ab dem nSchsten Objekt in der Gruppe weitergesucht 
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Test auf giiltlge Referenz 

another (r): liefert TRUE, falls r ein gultiges Objekt referiert 
found: liefert TRUE, falls durch das letzte first Oder next mit Auswahl- 
bedingung ein Objekt gefunden wurde 

Objekt aniegen 

insert (r): 

legt ein neues Objekt in der zugehdrigen Klasse an und fugt es in die 
zugehdrige Gruppe vor der aktuellen Position ein. r zeigt anschlieBend auf 
das neue Objekt. 

Anmerkung: Es ist sicherzustellen, insbesondere fur Ref- und Groupsegmente, 
daB vor dem Lesen (s.u.) eines Segmentwertes ein definierter Wert einge- 
tragen wurde (Segment schreiben). Falls dies durch das Anwendungssystem 
nicht garantiert werden kann, sollte unmittelbar nach insert in alle Segmente 
des neuen Objekts ein Wert eingetragen werden (z.B. mit reset). 

Objekt I6schen 

delete (r): 

I6scht das durch r referierte Objekt aus der zugehdrigen Klasse. Dadurch ist 
es auch aus alien Gruppen, in denen es enthalten war, entfernt. r referiert 
anschlieBend das nSchste Objekt der zugehfirigen Gruppe oder das Grup- 
penende. 

Objekt in Gruppe einfugen 

hold (gruppe, r): 

hdngt r an gruppe an. gruppe gilt anschlieBend als 'nicht sortiert'. 
hold (wohin, r): 

fugt r vor der durch die REF- Variable wohin t)ezeichneten Position in die 
zu wohin gehdrende Gruppe ein. Das Sortierkennzeichen der Gruppe wird 
nicht verdndert. wohin zeigt anschlieBend auf das eingefugte Objekt (r). 
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Objekt aus Gruppe ausfugen 
unhold (r): 

r wird aus der zugehdrigen Gruppe entfernt. r referiert anschlieBend kein 
Objekt (another (r) - - > FALSE). 

Gruppe leeren 

clear (gruppe) : entfernt alle Referenzen aus der Gruppe 
Gruppe sortieren 

sort (gruppe, anzahl): 

sortiert die durch gruppe referierten Objekte nach den ersten anzahl 
Segmenten (bezogen auf die Reihenfolge, in der die Segmente der Gruppe 
zugewiesen wurden) 

Segment schreiben 

write (r, segment, wert): 

schreibt wert in das angegebene Segment des referierten Objekts. Die 
Typen von segment und wert mussen einander entsprechen (TEXT, INT, 
REAL, REF, GROUP). 1st segment vom Typ SEGMENT, dann muB wert vom 
Typ TEXT sein. In diesem Fall wird die vereinbarte Konversion (siehe 
Kap. 3.2) durchgefuhrt. 

reset (r, segment) : trdgt den Standardwert ein, sonst wie write. 

Anmerkung: Der Programmierer muB sicherstellen, daB r ein gultiges Objekt 
referiert (IF another (r) ...) und daB segment zur referierten Klasse gehort. 
Andernfalls erfolgt die Eintragung auf eine faische Stelle. 
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Segment iesen 

read (r, segment, wert): 

ubergibt in der Variablen wert den Inhalt des angegebenen Segments des 
referierten Objekts. Die Typen von segment und wert mussen einander 
entsprechen (TEXT, INT, REAL, REF, GROUP).^ 1st segment vom Typ 
SEGMENT, dann muB wert vom Typ TEXT seln. In diesem Fall wird die 
vereinbarte Konversion (siehe Kap. 3.2) durchgefuhrt. 
r_segment : 

Der Operator liefert den Wert des angegebenen Segments des refe- 
rierten Objekts (nicht fur GROUPSEGMENTe). Der Operator ist schwacher 
als die In ELAN deflnierten Operatoren. Der Ausdruck r_^segment sollte 
daher in Ausdrucken mit anderen Operatoren eingeklammert werden: 
(r_segment). 

Anmerkungen: 

1. In segment muB ein gultiger Wert eingetragen sein, sonst ist das Ergebnis 
unbestimmt (Fehler Oder falsch). 

2. Aus REFSEGMENTen wird der gefundene Wert geliefert, auch wenn er kein 
gultiges Objekt referiert. Wenn dieser Fall eintreten kann, dann muB wert vor 
der Weiterverwendung gepruft werden (IF another (wert) ...). 

3. Vom Programmierer ist sicherzustellen, daB r ein gultiges Objekt referiert und 
segment zur referierten Klasse geh6rt. Andernfalls ist das Ergebnis falsch. 
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4.3 Anwendung von Formularen 



Verwendung von Formularen im Dialog 

Zunachst wird das Formular auf den Bildschirm geschrieben. (Vorher Bildschirm 
loeschen?) AnschlieBend k6nnen uber einzelne durch die Feldnummer bezeich- 
nete Formularfelder Daten vom Bildschirm gelesen, auf dem Bildschirm ausge- 
geben oder auf dem Bildschirm zur Bearbeitung angeboten werden. Die Feld- 
nummer bezieht sich auf Felder (nicht Teilfelder). Ebenso arbeitet das Programm 
mit Feldinhalten (nicht Teilfeldinhalten). 

Mit den folgenden Tasten kann die Schreibmarke auf dem Bildschirm gesteuert 
werden und es kOnnen Eingaben korrigiert werden: 



in einem Feld 



RECHTS 
LINKS 
HOP LINKS 
HOP RECHTS 
RUBIN 



RUBOUT 
HOP RUBOUT 
auf anderes Feld 



Cursor eine Stelle nach rechts 
Cursor eine Stelle nach links 
Feldanfang 

hintei bzw. auf letztes Zeichen 

fugt an der aktuellen Cursorposition ein Leerzeichen ein und 
verschiebt den Rest des Feldinhaltes um ein Zeichen. Wenn das 
Feld (nicht Teilfeld!) uberlauft, werden die letzten Zeichen nicht 
mehr dargestellt. 

Idscht an der aktuellen Cursorposition ein Zeichen, der Rest des 
Feldinhalts wird nachgeruckt. 
Idscht Feldinhalt ab Cursorposition 



RETURN nSchster bzw. letzter Feldanfang 

HOP RETURN Anfang des vorhergehenden bzw. ersten Feldes 

UNTEN eine Zeile nach unten, falls dort ein Feld ist 

OBEN eine Zeile nach oben, falls dort ein Feld ist 
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Formularbearbeitung beenden 
ESC 

bei EInfeldbearbeitung auch durch Verlassen des Feldes (s.o.) 

Anmerkung: Die Zuordnung dieser und evtl. weiterer Positionierungsfunktionen 
kann sich durch Anpassung an die Textverarbeitung dndern. 

Verwendung von Formularen ohne Datenbankbezug 

Formulare werden dem Programm in TAG -Variable zur Verfugung gestellt: 
TAG VAR t 

t := tag (formularname) oder 
t INITBY formularname 

Formular auf den Bildschirm schreiben 

(« page; ggfs. Bildschirm Idschen «) 

show (t) 

Fur die folgenden Funktionen muB feldnummer als Zahlvariable definiert sein und 
vor der Benutzung einen Wert zugewiesen bekommen: 

INT VAR feldnummer; 

feldnummer := 2 

Ein FekJ bearbeiten 

text in Feld feldnummer von t ausgeben 

put (t, text, feldnummer) 
text von Feld feldnummer von t lesen 

get (t, text, feldnummer) 

get (t, feldnummer) (* liefert den Text *) 



Programmieren 



31 



text auf Feld feldnummer von t zur Bearbeitung anbieten 

putget (t, text, feldnummer) 
mehrere Felder bearbeiten 

Bei folgenden Prozeduren kann der Benutzer mehrere Formularfelder bearbei- 
ten. Dazu mu6 ein Bereich von 100 Textwerten ubergeben werden. Die Werte 
werden den Formularfeldern in der Reihenfolge ihrer Feldnummern zugeordnet. 

ROW 100 TEXT VAR texte; 

(* vor put, putget: Bereich, soweit benutzt, mit Werten fullen, z.Bsp. 

FDR i FROM 1 UPTG fields(t) 

REP texte(i) := PER *) 

put (t, texte) 

get (t, texte, feldnummer) 

putget (t, texte, feldnummer) 

Die Schreibmarke wird anfangs in das Feld feldnummer gesetzt. Sie kann vom 
Benutzer uber alle nicht schreibgeschutzten Formularfelder bewegt werden. Die 
Bearbeitung des Formulars wird beendet durch ESC. feldnummer enthdit dann 
die Nummer des verlassenen Feldes. 
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weitere Prozeduren 

Gr6Bte jemals benutzte Feldnummer in Formular t 

fields (t) 
Anzahl der von Formular t belegten Zeilen 

y size (t) 
Ldnge des Feldes feldnummer von Formular t 

length (t, feldnummer) 

Schreibschutz fur Feld feldnummer In Formular t 

protect(t, feldnummer, TRUE) (* schiitzen ^) 
protect(t, feldnummer , FALSE) (♦ freigeben *) 

Formular vertlkal verschieben 

t SCROLL zeilenzahl 
positive zeilenzahl: nach unten 
negative zeilenzahl: nach oben 

Hierdurch ist es mdglich, Formulare beginnend mit Zeile 1 zu entwerfen und 
im Programm auf eine in der jeweiligen Dialogsituation geeignte Zeile zu 
verschiet)en. 

Code des Zeichens, mit dem das Formular verlassen wurde 

leaving code (z.B. 27 (ESC)) 
Cursor entsprechend Benutzereingabe auf anderes Feld 

execute command code(t, feldnummer) 
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Mit den letzgenannten Funktionen ist es moglich ansteile von 
get (t,texte,feldnummer) eine entsprechende eigene Prozedur zu schreiben: 

REP get(t,texte(feldnummer) , feldnummer) ; 

IF ok THEN execute command code(t, feldnummer) FI 
UNTIL leaving code = esc PER. 
ok: IF feldnummer = 4 

THEN plausibles erscheinungs jahr 

ELSE TRUE 

FI. 

plausibles erscheinungs jahr : 
texte( feldnummer) = COR 
(int(texte( feldnummer)) > 1900 AND 
int(texte(feldnummer)) < 1985) 



Hierdurch wird der Benutzer im Feld 4 (des Formulars "werk") festgehalten, bis 
er kein oder ein plausibles Erscheinungsjahr Oder ESC eingibt. 
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Verwendung von Formularen mit Datenbankdaten 

Zusatzlich zu den bisher genannten stehen fur die Bearbeltung von Datenbank- 
daten neben anderen die folgenden Funktionen zur Verfugung. Zur Erleich- 
terung der Programmierung wird dabei ausgenutzt, daB 

- den Formularfeldern Segmente zugeordnet wurden 

- zu einer Gruppe ein Standardformular definiert wurde. 

Dadurch kfinnen mit einer Operation alle einem Formular zugeordneten Seg- 
mente eines referierten Objekts bearbeitet werden (ohne Umweg uber ROW 100 
TEXT). 

AuBerdem kann das zu einer Referenz gehttrende Formular angesprochen 
werden. 

Der Zusammenhang wird folgendermaBen hergestellt: 

1 . Die Referenz - Variable gehdrt zu einer Gruppe: 

Das der Gruppe zugeordnete Formular wird benutzt und die Segmente, die 
Gruppe und Formular zugeordnet sind. 

2. Die Referenzvariable gehdrt nicht zu einer Gruppe: 

Der Referenzwert wurde z.B. aus einem refsegment gelesen. Dieser 
Referenzwert kann aber vorher nur in einer Variablen erzeugt worden sein, 
die einer Gruppe zugeordnet war. Der Referenzwert ubernimmt dabei das 
der Gruppe zugeordnete Formular. In diesem Fall werden alle Segmente 
benutzt, die zum Formular und zur referierten Klasse geh5ren. 

3. Falls die in Frage kommende Gruppe kein Standardformular hat, hat auch 
die Referenz keins. 

Formular zur Verfugung stellen 

TAG VAR t := tag (ref) 

(kann entfallen, wenn t im Programm nicht benutzt wird) 
Formular zeigen 
show (ref) 
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Alle zugeordneten Segmente des referierten Objekts ausgeben. lesen, bearbeiten 
lessen 



uber das zugehdrige Formular: 



put (ref) 
get (ref) 
putget (ref) 

(Dieses Formular kann nicht durch SCROLL verschoben werden.) 

uber ein belieblges Formular t: 

put (ref, t) 
get (ref, t) 
putget (ref, t) 

text auf dem Segment s zugeordneten Feld von t ausgeben 

put (t, s, text) 
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Verwendung von Formularen fur die Ausgabe 

Fur die Datenausgabe werden Formulare mit Daten gefullt und auf ein Pinboard 
geheftet, das nach Fertigstellung auf das aktuelle Ausgabegerat (z.B. Bildschirm) 
Oder in eine Datei kopiert werden kann. Formulare k6nnen auch ubereinander 
geheftet werden. 

Auf einem Pinboard wird man meist das Bild einer Druckseite erzeugen. 
Feld feldnummer des Formulars t mit text fullen 

fill (t, text, feldnummer) 
Pinboard leeren 

clear board 
Vorbereitetes Pinboard aus Datei datei laden 

get board (datei) 
Formular t auf Pinboard heften 
linke obere Ecke auf Position (spalte, zeile): 

pin (t, spalte, zeile) 

pin (t, spalte) (nachste freie Zeile) 

pin (t) (Spalte 1, nachste freie Zeile) 

linke obere Ecke auf Symbol auf Pinboard: 

pin (t, symbol) 

pin (t, symbol, erfolg) 

(erfolg wird auf TRUE gesetzt, wenn symbol gefunden wurde, sonst FALSE; 
vorher deklarieren: BOOL VAR erfolg) 
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text ohne Benutzung eines Formulars auf Pinboard heften 

pin (text, spalte, zeile) 
Ndchste freie Zeile (Inhalt des Zeilenmerkers) 

next boardline (liefert ganze Zahl (INT)) 
Ndchste Ausgabezeile bestimmen (Zeilenmerker setzen) 

set boardline (zahl) 

Pinboard ausgeben 

put board auf aktuellem Ausgabemedium (z.B. Bildschirm) 

put board (datei) in Datei datei 

Ausgabe von Datenbankdaten 

Formular t mit den zugeordneten Segmenten des durch ref referierten Objekts 
fullen 

t FILLBY ref 

Das dem Segment s zugeordnete Feld von t mit text fullen 

fill (t, s, text) 
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5. Datenbankverwaltung 
Sicherung gegen Zerstdrung 

REMIS enthSIt keine eigenen Sicherungsvorkehrungen auBer 
save base. 

Die Datenbank kann also gegen Fehler in der Arbeitstask gesichert werden, 
indem sie durch save base zur Sicherungstask kopiert wird. Dies sollte immer 
dann geschehen, wenn sie einen aufzubewahrenden Inhalt (insbesondere auch 
Formulare) bekommen hat. 

Insbesondere ist dies auch dann nutzlich, wenn das in der Arbeitstask insertierte 
Anwendungssystem ersetzt werden soli. Hdufige Vorgehensweise: 

save base (/"BIBsave") 

end 

begin 

load base (/"BIBsave") 
insert declarations 
neues System insertieren 



Archivieren der Datenbank 

begin ("bibsave","BIBsave") (* urn "BIBsave" nicht zu gefahrden *) 
fetch all 

archive (archivname) 
clear (archive) 
save all (archive) 
end 



archivierte Datenbank laden: fetch all (archive) 
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Gleichzeitige Mehrfachbenutzung 

Gleichzeitiges Andern der Datenbank aus verschiedenen Tasks ist mit der 
Single - User - Version (ohne Parallel - Zugriff) nicht mdglich. Unterschiedliche 
Datenbankkopien kOnnen nicht konsistent zusammengefuhrt werden. 
Allerdings kann nebeneinander aus verschiedenen Datenbankkopien Ausgabe 
erzeugt werden. 



Sicherung gegen unbefugte Benutzung 

Gegen unbefugte Benutzung kann nur gesichert werden, indem die Arbeitstask 
gegen unbefugte Benutzung gesichert wird und in der Arbeitstask dem Benutzer 
die MOglichkeit zu programmieren entzogen wird. Dies kann zum Beispiel durch 
Einsatz des Menue - Programms erreicht werden. 
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6. Menue - Behandlung 

Die Menue - Behandlung besteht aus zwei Teilen, einem Laufzeitpaket, das im 
fertigen Anwendungssystem insertiert sein muB, und einem Program mgenerator, 
der nur zur Umwandlung der Spezifikation ben6tigt wird. 

Der Generator erzeugt aus einer Spezifikationsdatei mit der externen Darstellung 
eines Menue -Baums einen Datenraum mit der internen Darstellung des 
Menue -Baums, sowie ein ELAN - Programm, das diesen Menue -Baum inter- 
pretiert, d.h. entsprechend den Tastendrucken des Bedieners zu verschiedenen 
Menues und Unterprogrammen verzweigt und eine Fehlerbehandlung durch- 
fuhrt. 

Fiir die Darstellung der Menues bei der Ausfuhrung werden zwei Formulare 
("morchelrahmen" und "morchelmenue") verwendet, die mit design verandert 
werden konnen. Auf "morchelrahmen" werden die ausgewahlten Menuepunkte 
angezeigt und in dem Feld mit dem symbolischen Namen 4711 Fehler- 
meldungen. Auf "morchelmenue" werden in den Feldern 2 bis vorletztes Feld die 
Menuepunkte angezeigt und im letzten Feld mit dem symbolischen Namen 4711 
Meldungen aus dem Menuebaum. 

Die externe Darstellung enthdit zu jedem Menuepunkt folgende Angaben: 

- Die Hierarchiestufe 

- Die Beschreibung der Funktion, die durch An wahl eines Menue - Punktes 
angestoBen wird 

- optional eine im Falle der Anwahl auszufiihrende Elan - Prozedur (bei Knoten 
auf niedrigster Hierarchiestufe, d.h. wenn kein Untermenue folgt, ist sie 
notwendig) 

- optional eine im Falle der Anwahl auszugebende Meldung bei Knoten, denen 
ein Untermenue folgt 
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Gleichzeitige Mehrfachbenutzung 

Gleichzeitiges Andern der Datenbank aus verschiedenen Tasks ist mit der 
Single - User - Version (ohne Parallel - Zugrlff) nicht mbglich. Unterschiedliche 
Datenbankkopien kfinnen nicht konsistent zusammengefuhrt werden. 
Allerdings kann nebeneinander aus verschiedenen Datenbankkopien Ausgabe 
erzeugt werden. 



Sicherung gegen unbefugte Benutzung 

Gegen unbefugte Benutzung kann nur gesichert werden, indem die Arbeitstask 
gegen unbefugte Benutzung gesichert wird und in der Arbeitstask dem Benutzer 
die Mdglichkeit zu programmieren entzogen wird. Dies kann zum Beispiel durch 
Einsatz des Menue - Programms erreicht werden. 
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6. Menue - Behandlung 

Die Menue - Behandlung besteht aus zwei Tellen, einem Laufzeltpaket, das im 
fertlgen Anwendungssystem insertiert sein muB, und einem Program mgenerator, 
der nur zur Umwandlung der Speziflkation benGtigt wird. 

Der Generator erzeugt aus einer Speziflkatlonsdatel mit der externen Darstellung 
eines Menue -Baums einen Datenraum mIt der internen Darstellung des 
Menue -Baums, sowie ein ELAN - Program m, das diesen Menue -Baum inter- 
pretiert, d.h. entsprechend den Tastendrucken des Bedieners zu verschiedenen 
Menues und Unterprogrammen verzweigt und eine Fehlerbehandlung durch- 
fuhrt. 

Fur die Darstellung der Menues bei der Ausfuhrung werden zwei Formulare 
("morchelrahmen" und "morchelmenue") verwendet, die mit design verandert 
werden konnen. Auf "morchelrahmen" werden die ausgewShlten Menuepunkte 
angezeigt und in dem Feld mit dem symbolischen Namen 4711 Fehler- 
meldungen. Auf "morchelmenue" werden in den Feldern 2 bis vorletztes Feld die 
Menuepunkte angezeigt und im letzten Feld mit dem symbolischen Namen 4711 
Meldungen aus dem Menuebaum. 

Die externe Darstellung enthdit zu jedem Menuepunkt folgende Angaben: 

- Die Hierarchiestufe 

- Die Beschreibung der Funktion, die durch Anwahl eines Menue - Punktes 
angestoBen wird 

- optional eine im Falle der Anwahl auszufuhrende Elan - Prozedur (bei Knoten 
auf niedrigster Hierarchiestufe, d.h. wenn kein Untermenue folgt, ist sie 
notwendig) 

- optional eine im Falle der Anwahl auszugebende Meldung bei Knoten, denen 
ein Untermenue folgt 
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Beispiel: 



1 


"n: 


Titel aufnehmen" 


titel aufnehmen 


1 


"a: 


Titel andern" 


titel aendern 


1 


"w: 


weitere Exemplare aufnehmen" 


weitere exemplare 


1 


"a: 


Ausleihe" 


ausleihe 


1 


"r: 


Ruckgabe'' 


rueckgabe 


1 


"1: 


Exemplar loschen" 


exemplar loeschen 


1 


"b: 


Benutzeranzeige" 


benutzeranzeige 


1 


"t: 


Titelanzeige" 


t itelanzeiae 


1 


"z: 


zeige Liste" 




7 


Welche Liste? 




2 


"w: 


Werkliste" 


werke zeigen 


2 


"e: 


Exemplarliste" 


exemplare zeigen 


2 


"b: 


Benutzerliste" 


benutzer zeigen 


1 


"q: 


Ende" 


break 


1 


"i: 


Initialisierung" 


bibinit 


//• 


w 







Aus dieser Spezifikation wird ein Monitorprogramm generiert, das zunSchst ein 
Menue anbietet aus dem einer der Punkte der Stufe 1 ausgewdhit warden kann 
(durch Eingabe des ersten Zeichens oder durch Cursor -Positionierung und 
RETURN). 

Bei 'q' auf Stufe 1 wird die Task unterbrochen, 

bei 'z' wird die Meldung 'Welche Liste?' ausgegeben und das zugehorige 
Untermenue der Stufe 2 angeboten. 

Bei Anwahl eines anderen Menuepunkts wird die angegebene (vorher insertierte 
cxier hinter //* beschriebene) Prozedur ausgefuhrt. 

Die externe Darstellung des Menuebaums wird durch eine Zeile mit //* 
beendet. Danach kann ELAN - Programm folgen. 

Ein angebotenes Menue kann vom Benutzer auch durch HOP verlassen 
werden (jedoch nur bis Stufe 1). Dieses Zeichen kann durch die Prozedur 
'return symbol' anders definiert werden. 
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Menue beschreiben 

edit ("source, name") (* 'name' ist frei wdhlbar *) 
Darin gemdB obigem Beispiel den Menuebaum beschreiben. 

Monitor - Programm generieren 

fetch ( "MORCHEL std" , task ( "REM IS")) 

transform("name") 

erzeugt: tabelle.name 

name (interne Baumdarstellung) 

monitor. name (Baum - Interpreter) 

insert ("monitor. name") 

Dialog - Programm starten 

monitor name (* kann nicht mehr verlassen werden *) 

Menue in anderer Task implementieren 

name zur Verfugung steilen 
monitor.name insertieren 
starten 

Menue - Baum dndern 

source. name dndern 
transform ("name") 

Falls tabelle.name vorhanden ist, wird versucht name zu andern. 
Falls mfiglich, braucht monitor.name nicht neu insertiert zu werden, 
sonst tabelle.name Idschen und ab transform wiederholen. 
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7. Abfragesprache sql 

sql generiert aus einem Kommando, das in einer Date! steht, ein ELAN- 
Programm, das Datenobjekte auf dem Bildschirm zeigt. Dafur muB ein Rahmen- 
programm in der Datei "join mac" existieren (fetch ("join mac",/"REMIS")). 

Hinter dem Schlusselwort SELECT werden die Merkmale aufgezShlt, die ausge- 
geben werden soiien. 

Nach dem Schlusselwort FROM folgt die Angabe der Gruppe(n), deren Objekte 
betrachtet werden sollen. 

Um die Merkmale eindeutig einem Objekt zuzuordnen, kann ihnen ein Grup- 
pent)ezeichner vorangestellt werden (Gruppenname Oder ein im FROM-Teil 
vereinbarter Gruppenbezeichner). 

Autoren aller in 'wgr' enthaltenen Werke 

SELECT autor FROM wgr Oder 
SELECT wgr_autor FROM wgr 

Name aller Benutzer: 

SELECT name FROM bgr : pars Oder 
SELECT pers_name FROM bgr : pers 

AuBerdem kann, um das Ausgabebild zu t)eeinflussen, dem Merkmal noch eine 
Ldngenangat)e zugefugt werden (Standardwertwert: 20). 

name (max. 30 Stellen) und klasse (max. 6 Stellen) aller Bibliotheksbenutzer: 

SELECT name L 30, klasse L 6 FROM bgr 
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Die Ergebnismenge kann durch Angabe von Auswahlbedingungen im 
WHERE -Teil der SELECT - Anweisung eingeschrankt werden. 

Titel und Autor aller Bucher des Autors "May", 
in deren Titel das Wort 'Winnetou* auftritt 
und die spdtestens 1892 erschienen sind: 

SELECT titel, autor FROM wgr : buch 
WHERE buch_autor = "May" 

AND "Winnetou" IN buch_titel 

AND buch_erschj <= 1892 

Anmerkung: Im WHERE -Teil der Anweisung mussen alle Merkmale durch den 
Gruppenbezeichner spezifiziert werden, da dieser Teil vom ELAN - Compiler 
abgearbeitet wird, der keine automatischen Erganzungen durchfuhrt. Hierdurch 
kann aber der voile Elan - Sprachumfang zur Formulierung von Bedingungen 
genutzt werden, einschlieBlich (auch nachtraglich) selbst definierter Opera- 
toren. Fur das Beispiel muB der Operator IN insertiert sein, z.Bsp.: 

BOOL OP IN (TEXT CONST muster, text): 

pos (text, muster) > 0 
END OP IN 

Die Angabe mehrerer Gruppen im FROM -Teil fuhrt zu einem JOIN, d.h. jedes 
Element der einen Gruppe wird mit jedem Element der anderen zu einem neuen 
Objekt gekoppelt. 

Eine Gruppe kann auch mit sich selbst gekoppelt werden. Man erhalt dann die 
Menge aller Kombination zweier Objekte dieser Gruppe. 

Alle Autoren, die auch Benutzer sind: 

SELECT name, klasse FROM wgr : werk, bgr : benutzer 
WHERE werk autor = benutzer name 



Weitere Funktionen 
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8. Weitere Funktionen 
Datumsbearbeitung 

Das Datumspaket stellt Prozeduren zur Verfugung, die einen TEXT, der der 
Syntax eines gultigen Datums zwischen 1.1.1900 und 31.12.2050 entspricht, 
eindeutig einen INTEGER zuweist. Dieser Bereich ist in der Regel fur Daten- 
bankanwendungen ausreichend (Geburtsdatum, Einstellungsdatum, Termine 
etc.). 

Die Codierung hat gegenuber der Speicherung des Textes folgende Vorteile: 

- Der Speicherplatzbedarf betrdgt nur ein Achtel 

- Die Vergleichsoperationen wirken wie gewunscht, wahrend sie auf der 
TEXT - Darstellung gemSB alphabetischer Ordnung arbeiten und unsinnige 
Ergebnisse liefern. 

- Operationen wie Bestimmen der Tagesdifferenz zwischen zwei Daten, 
Bestimmung des Wochentages, Berechnung des Folgedatums, Sortieren 
nach Datum etc. sind wesentlich schneller. 



datum (datum("28.2.84") +1) — > "29.02.84'' 
datum (datum(''01.3.83") - 1) — > ''28.02.83" 

Die durch dieses Paket definierten Prozeduren sind im Anhang aufgefuhrt. 

Task - Kommunikation 

REMIS enthait eigene Prozeduren fur die Abwicklung der Inter - Task - Kommuni- 
kation, die zur Koordinierung von Programmen, die in verschiedenen Tasks 
laufen, genutzt werden kbnnen. 



Beispiel: 



datum ("28.01.84") 
datum (- 1434) 



— > - 1434 
— > "28.01.84' 



46 



REMIS Programmier-Handbuch 



Andere Task rufen 



call (name der gerufenen task) 

Das Terminal wird an die gerufene Task ubergeben. Die rufende Task wartet 
auf Ruckgabe. 

call (taskname, PROC (code, datenraum) auftragsbearbeitung) 
Zusdtzlich ist wdhrend der Wartezeit die Prozedur 'autragsbearbeitung' bereit, 
Auftrftge der gerufenen Task zu bearbeiten, die durch einen code und einen 
(zu bearbeitenden) Datenraum beschrieben sind. Als Ergebnis wird ein 
Datenraum und in code eine Antwort zuruckgegeben. Die Prozedur hat kein 
Terminal. Falls erforderlich muB sie es durch die parameterlose Prozedur 
'continue' holen und durch 'return control' wieder abgeben. 



Terminal abgeben 



return control 

Fails die Task mit 'call' gerufen wurde. wird das Terminal an die rufende Task 
zuruckgegeben. Die Task selbst wartet, bis sie das Terminal wiederbekommt. 

Auftrdge an die rufende Task erteilen (z. Bsp. Fragen stellen) 

ask (auftragsart , datenraum, antwort) 

erteilt durch eine Zahl in auftragsart einen Auftrag an die rufende Task und 
erhlkit eine Antwort. Diese ist positiv, wenn sie von der Auftragsbearbeitung 
gegeben wurde, sonst negativ. Im Datenraum kdnnen Daten ubergeben und 
ubernommen werden. 



Starten der Kommunikation 



Eine Task, die durch 'call' aufgerufen werden soli, muB mit 'return control' anstelle 
von 'break* verlassen werden. 



Mehrfachbenutzung 
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9. Mehrfachbenutzung 
9.1 Uberblick 

Wenn eine Datenbank von mehreren Tasks gleichzeitig benutzt werden soli, 
dann ist die Multl - User - Version von REMIS zu verwenden. Sle arbeitet 
nach folgendem Konzept: 

E$ wird eine Task als Datenbankmanager eingerichtet, in der die Datenbank 
liegt. Jede Task erOffnet die Kommunikation mit dem DB - Manager durch 

OPEN db-manager-name anstelle von 'load base*. 

AnschlieBend kdnnen Lese- und Schreibtransaktionen auf der Datenbank 
ausgefuhrt werden. Dazu werden parameterlose Prozeduren zur Ausfuhrung 
an REMIS ubergeben, z. Bsp. 

read transaction (PROC werke zeigen). 

Anmerkung: 'load base' und 'save base' gibt es in der Multi - User - Version 
nicht mehr. 

Gleichzeitig kOnnen mehrere Lesetransaktionen und eine Schreibtransaktion 
ausgefuhrt werden. Weitere Schreibtransaktionen mussen bis zum Ende der 
gerade laufenden warten. 

Ober die Transaktionen - Verwaltung hinaus enthait die Multi - User - Version 
von REMIS ein eigenes Archiv- System, das insbesondere die Archivierung von 
DB-Datenrdumen, die nicht auf eine Floppy passen, ermoglicht sowie einige 
Prozeduren fur die Inter -Task -Kommunikation. 
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9.2 REMIS starten 

Anmerkung: Bei der Generierung des Datenbaksystems wird eine Task "REMIS" 
eingerichtet. Falls die schon existlert (z. Bsp. Single - User - Version) muB 
sie zundchst umbenannt werden, z. Bsp. 

continue ("REMIS") 

rename myself ("REMIS single") 

break 

Task-Struktur 

PUBLIC 

DB-UR 

Datenbank - Manager 
REMIS 

Arbeitstask 1 
Arbeitstask 2 

und bei Bedarf: 
SYSUR 

DB-SYSUR 

DB- ARCHIVE 

shutup 

Die Tasks DB-UR, REMIS und DB-SYSUR, DB- ARCHIVE, shutup werden 
vom Generator selbstdndig eingerichtet. 



Mehrfachbenutzung 
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REMiS installieren 



begin 



XXX 



archive ("REMISm") 
fetch all(archive) 
edit ("REMIS. info'O 
ESC q 



Archiv - Floppy einlegen 
archiv anwdhlen 



run 



Information lesen 
edit verlassen 
"REMIS.info" ausfiihren 



richtet DB-UR und REMIS ein und Insertlert REMIS -Pakete 

Archiv - System installieren 

begin ("xxx","SYSUR") 

fetch ("REMIS. sys", /"REMIS") 

insert 

Datenbank - Manager einrichten 
begin ("BIBM", "DB-UR") 

fetch all leere Datenbasis holen 

hier kann auch eine andere durch 'save base' erzeugte Datenbasis 
verwendet werden 

multi user base Datenbasis einrichten und Manager 



starten 



Arbeitstask einrichten 



begin ("bib", "REMIS") 
OPEN "BIBM" 



Kommunikation mit BIBM erdffnen 



Nun k6nnen Transaktionen auf der Datenbank ausgefuhrt werden. 
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9.3 Bearbeiten der Datenbasis 

Alle Arbeiten mit der Datenbasis mussen als Transaktion ausgefuhrt werden, 
z. Bsp. 

read transaction (PROC dblist) 
cxjer, nachdem das Programm auf S. 9 mit 'edit' in eine Datei geschrieben 
wurde 

read transaction (PROC run). 

Das Bibliothekssystem kann in einfacher Weise durch Anderung des Menue- 

Baums (S. 41) auf die Mehrt)enutzer - Version umgesteilt werden. 

Beispiel: 



"n: 


Titel aufnehmen" 


tr titel aufnehmen 


"a: 


Titel andern" 


tr titel aendern 


"w: 


weitere Exemplare aufnehmen" 


tr weitere exemplare 


"a: 


Ausleihe" 


tr ausleihe 


"r: 


Ruckgabe" 


tr rueckgabe 


"1: 


Exemplar loschen" 


tr exemplar loeschen 




Benutzeranzeige" 


tr benutzeranzeige 


"t: 


Titelanzeige" 


tr titelanzeige 


"z: 


zeige Liste" 




Welche Liste? 




"w: 


Werkliste" 


tr werke zeigen 


"e: 


Exemplarliste" 


tr exemplare zeigen 


"b: 


Benutzerliste" 


tr benutzer zeigen 


"q: 


Ende" 


break 


"i: 


Initialisierung" 


tr bibinit 



/A 

tr titel aufnehmen: write transaction (PROC titel aufnehmen). 

tr titel aendern: write transaction (PROC titel aendern). 

tr weitere exemplare: write transaction (PROC weitere exemplare). 

tr ausleihe: write transaction (PROC ausleihe). 

tr rueckgabe: write transaction (PROC rueckgabe). 

tr exemplar loeschen: write transaction (PROC exemplar loeschen). 

tr benutzeranzeige: read transaction (PROC benutzeranzeige). 



Mehrfachbenutzung 
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tr titelanzeige: read transaction (PROC titelanzeige) . 

tr werke zeigen: read transaction (PROC werke zeigen). 

tr exemplare zeigen: read transaction (PROC exemplare zeigen). 

tr benutzer zeigen: read transaction (PROC benutzer zeigen). 

tr bibinit: write transaction (PROC bibinit). 



Anmerkung: Bei den Lesetransaktionen 'benutzeranzeige' und 'titelanzeige' wird 
am Ende ein Fehler auftreten ("Schreibzugriff In Lesetransaktion nicht erlaubt"). 
Erkldrung: 'benutzeranzeige' enthdit die Anweisung 

read (benutzer ,entliehen,exgr ) . 
Dabei wird der Wert von 'entliehen' gelesen und auf den in der Datenbasis 
iiegenden Piatz von 'exgr' geschrieben. Die Lese - Anweisung enthdit also auch 
eine Schreib - Operation. 

Der Fehler kann vermieden werden, indem 'benutzeranzeige' als Schreibtrans- 
aktion ausgefuhrt wird, oder abgefangen werden, indem die Lesetransaktion in 
geeigneter Welse mit 'disable stop', 'clear error' und 'enable stop' umgeben wird. 
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9.4 Programmieren von Transaktionen 

Der DB - Manager mu6 gestartet sein durch 
multi user base. 

In einer Arbeitstask wird die Kommunikation mit dem DB- Manager eroffnet durch 

OPEN db-manager-name 
und geschlossen durch 

kill base. 

Prozeduren, die auf der Datenbasis ausgefuhrt werden sollen, sind durch 

read transaction (PROC prozedur) bzw. 

write transaction (PROC prozedur) 
auszufuhren. Wenn die Prozeduren Parameter enthalten, mussen sie in 
parameterlose Prozeduren verpackt werden. 

Lesetransaktionen durfen keine Schreibzugriffe enthalten. Dies wird bei 
Transaktionsende uberpruft. Wurden Schreibzugriffe ausgefuhrt, dann wird die 
Transaktion beendet mit 

errorstop ("Schreibzugriff in Lesetransaktion nicht erlaubt"). 

Schreibtransaktionen durfen nicht innerhalb von Lesetransaktionen ausgefuhrt 
werden. 

AuBerhalb von Transaktionen ist der Zustand der Datenbasis in der Arbeitstask 
nicht definiert (und ebenso das Ergebnis von DB - Operationen). 

Zwischen Transaktionen kann die Datenbasis durch Schreibtransaktionen anderer 
Tasks geandert werden. Insbesondere kann der Inhalt von Gruppen verandert sein 
und Referenzen im Programm kCnnen ungultig sein. Variable fur Werte aus der 
Datenbasis (insbesondere REF - Variable) mussen daher in jeder Transaktion neu 
besetzt werden. 



Mehrfachbenutzung 
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Fur den, der's genauer wissen will: 

Urn den Aufwand bei Transaktionsanfang und -ende zu verringern wurde das 
Systemverhalten optlmiert. 

Transaktionen aus einer Task werden von REMIS zusammengefaBt bis zum 
fehlerhaften Abbruch einer Transaktion Oder der Behandlung einer Schreib- 
transaktion aus einer anderen Task. Innerhalb einer Transaktionenfolge wird der 
Zustand der Datenbasis zwischen den Transaktionen nicht verdndert. Die 
Programmvariablen mussen daher nur in jeder Transaktionenfolge neu besetzt 
werden. 

Ob eine neue Transaktionenfolge aufgesetzt wird bzw. wurde, kann festgestellt 
werden aus dem Bestehen eines Fehlerzustands ('is error') nach Transaktions- 
ende bzw. aus der Anderung der DB- Versionsnummer. Diese wird jeweils bei 
Ende einer Schreibtransaktion geSndert. Sie wird geliefert durch die Prozedur 
trversion. 



54 



REMIS Programmler-Handbuch 



9.5 Datenbasis archivieren 

Durch die Prozedur 

archive operation (welche, dbmanager-name) 

kann die Archiv-Task mit der Druchfuhrung einer Archiv - Funktion beauftragt 
warden. Folgende Operationen k6nnen ausgefuhrt werden: 

welche 

1 Floppies formatieren 

2 Anzelge des Inhalts einer Floppy. 

3 Datenbasis vom Archiv laden. 

4 Datenbasis archivieren. 

Datenbasis archivieren 

Der Benutzer wird aufgefordert (formatierte!) Floppies einzulegen, bis die Daten- 
basis vollstdndig archiviert ist Oder der Vorgang abgebrochen wird. 
Eine unvollstdndige Archivierung ist wertlos. 
GroBe Datenrdume werden ggfs. auf mehrere Floppies verteilt. 

Datenbasis vom Archiv laden 

Der Benutzer wird aufgefordert Floppies einzulegen bis eine vollstdndige Daten- 
basis eingelesen ist. Die zu einer Kopie gehOrenden Floppies kdnnen in t)eliebiger 
Reihenfolge eingelegt werden. 

Urn die Gefahr eines Speicheruberlaufs zu vermeiden, wird der Benutzer evtl. zu 
Beginn gefragt, ob die aktuelle Datenbasis vor dem Einlesen der Kopie gel6scht 
werden soil. 



Anhang: Beispiel 



10. Anhang 



10.1 Beispiel Schulbibliotheic 



Am folgenden Beispiel sol! die Verwendung von REMiS gezeigt werden. 
Das Programm stellt fur die Verwaltung einer Schulbibliothek folgende Dialog- 
funktionen zur Verfugung: 



1 Eingabe von Buchtitein 

2 Anderung von Titein 

3 Eingabe von Zusatzexempiaren 

4 Ausleihe 

5 Ruckgabe 

6 Anzeige aller Exemplare eines Titels 

7 Anzeige alter ausgeiiehenen Bucher eines Benutzers 

8 Anzeige aller Werke, Exemplare, Benutzer 

in alphabetischer Reihenfolge ab einer bestimmten Stelle 



Die Datenbank enthdit Daten folgender Struktur: 



+- 



exemplare 



WERK 



-+ + + 

! ! BENUTZER ! 

-+ + + 

A lentliehen 



werk-l !ben- 
ref! !ref 
+ + 

»| EXEMPLAR !«— + 
+ + 



— > zeigt auf ein Objekt, — » zeigt auf mehrere Objekte 
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WERK hat folgende Segmente (Felder, Attribute): 
autor Text Autor 
titel Text Titel 

verlag Text Verlag 
ejahr Zahl (INT) Erscheinungsjahr 
exemplare Gruppe zugehdrige Exemplare 



BENUTZER hat folgende Segmente: 
name Text Nachname 
vorname Text Vorname 
klasse TEXT Klasse bzw. Benutzergruppe 

entliehen Gruppe entliehene Exemplare 



EXEMPLAR hat folgende Segmente: 
exbez Text Exemplarbezeichnung 
adat Zahl (INT) Auslelhdatum 

werkref REF Verwels auf Titel 

benref REF Verweis auf Ausleiher 



Anhang: Beispiel 
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Datendefinition 

(wird in einer Datel erstellt und mit 'run' ausgefuhrt) 



new class ("WERK"); 
new class ("EXEMPLAR"); 
new class ("BENUTZER"); 



GROUP VAR 

wgr := new group ("WERK", "wgr"), (* alle Werke *) 

bgr ;« new group ("BENUTZER", "bgr"), (* alle Benutzer *) 

egr ;» new group ("EXEMPLAR", "egr"); (* alle Exemplare *) 

(* Belspielgruppen *) 
exgr := new group ("EXEMPLAR", "exemplare"); (* Exemplare eine Werks *) 
entgr : = new group ("EXEMPLAR ", "entllehen "); (* Ausleihem eines Benutzers *) 



(* WERK-Segmente *) 

new segment ("autor", "WERK", " "); 

new segment ("titel ", "WERK", " "); 

new segment ("verlag ", "WERK", " "); 

new segment ("ejahr", "WERK", 0); 

new segment ("exemplare", "WERK", exgr); 



(* EXEMPLAR -Segmente *) 

new segment ("exbez", "EXEMPLAR", ""); 

new segment ("adat ", "EXEMPLAR ", nildatum); 

new segment ("werkref", "EXEMPLAR", "WERK", nilref): 

new segment ("tfenref", "EXEMPLAR ", "BENUTZER ", nilref); 



(* BENUTZER -Segmente *) 

new segment ("name", "BENUTZER", ""); 

new segment ("vorname", "BENUTZER", ""); 
new segment ("klasse", "BENUTZER", ""); 

new segment ("entllehen", "BENUTZER", entgr); 



all class segments (wgr); 
all class segments (egr); 
all class segments (bgr); 

new methode (SEG "adat", 2); (* Datums - Konversion *) 
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dblist zeigt folgende DB - Struktur: 

Stand: 04.07.84 19:47 TASK : bib 
Es gibt die folgenden Objektklassen : 

CONVERSION 
WERK 
EXEMPLAR 
BENUTZER 



Strukturen der Datenbankobjekte : 



CONVERSION - Objekte bestehen aus den folgenden Segmenten : 
INT tablenr 
INT intcode 
TEXT textcode 

WERK - Objekte bestehen aus den folgenden Segmenten : 
TEXT autor 
TEXT titel 
TEXT verlag 
INT ejahr 
GROUP exemplare 

EXEMPLAR - Objekte bestehen aus den folgenden Segmenten : 
TEXT exbez 
INT adat 
REF werkref 
REF benref 

BENUTZER -Objekte bestehen aus den folgenden Segmenten : 
TEXT name 
TEXT vorname 
TEXT klasse 
GROUP entliehen 



Anhang: Beispiei 



Folgende Gruppen sind permanent in der Datenbank : 



conversiontable enthaelt 1 CONVERSION - Objekte. Substruktur 
tablenr 
intcode 
textcode 



wgr enthaelt 0 WERK - Objekte. Substruktur 

autor 
titel 
verlag 
ejahr 

exemplare 



egr enthaelt 0 EXEMPLAR - Objekte. Substruktur : 

exbez 
adat 
werkref 
benref 



bgr enthaelt 0 BENUTZER - Objekte. Substruktur : 

name 
vorname 
klasse 
entliehen 



exemplare enthaelt 0 EXEMPLAR - Objekte. Substruktur : 

entliehen enthaelt 0 EXEMPLAR - Objekte. Substruktur : 
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Folgende Formulare wurden deflnlert: 

morchelrahmen (geandert, fur Statusanzeigen und Meldungen) 

+ 

llfeld 2 feld 3 

2!feld A und feld 5 (4711) 

3! 

werk (Werkanzeige, Standardformular fur wgr) 

4!Autor: autor 

5!Titel: titel 

6! 

7!Verlag: verlag 

8 ! Erscheinungs jahr : 4 . . . 

4: ejahr 

exemplar (Exemplar- Anzeige, Standardformular fur egr) 

10! Exemplarbezeichnung: exbez 

ausleihe (Ausleiher - Anzeige, Standardformular fur bgr) 



12! Name: name 

13!Vorname: vorname 
14!Klasse: klasse 



Anhang: Beispiel 



Anwendungssystem 

Das Anwendungssystem wird mit 

archive ("REMIS.bib") 

fetch all (archive) 

run Cbibstart") 
gestartet. 



PACKET bib DEFINES 
titel aufnehmen, 
titel aendern, 
weitere exemplare, 
ausleihe, 
rueckgabe, 
exemplar loeschen, 
benutzeranzeige , 
titelanzeige, 
werke zeigen, 
exemplare zeigen, 
benutzer zeigen, 
bibinit : 
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TEXT VAR s:="", salt; 

INT VAR adatum, i, erste zeile; 

BOOL VAR erfolg:=FALSE; 

GROUP VAR exgr, egr, wgr, bgr; 

REF VAR werk, exemplar, ex, benutzer, bref, wref; 
TAG VAR tagst, tagw, tage, taga; 

PROC bibinit: 

exgr:=arbeitsgruppe ("exgroup", "EXEMPLAR''); 

egr:=group ("egr"); sort (egr, 1); 

wgr:=group ("wgr"); sort (wgr, 2); 

bgr:=group ("bgr"); sort (bgr, 2); 

werk : s first (wgr ) ; 

exempl ar : = first ( egr ) ; 

benutzer := first (bgr); 

tagst INITBY "morchelrahmen"; 

tagw INITBY "werk"; 

tage INITBY "exemplar"; 

taga INITBY "ausleihe"; 

erste zeile: =4 
END PROC bibinit; 



Anhang: Beispiel 



PROC titel aufnehmen: 
werk:sfirst (wgr); 
exemplar :s first (egr); 
REP werk aufnehmen 
UNTIL NOT erfolg PER; 
sort (wgr, 2). 

werk aufnehmen: 

meldung ("Daten oder ESC"); 
show (tagw); 

insert and reset (werk); 

get (werk); 

IF aufnahme ok 

THEN exemplare aufnehmen 

ELSE erfolg :=FALSE; delete (werk) 

FI. 

aufnahme ok: (werk^titel) > 
exemplare aufnehmen: 

clear (exgr); 

exemplar aufnehmen; 

IF erfolg 

THEN REP exemplar aufnehmen 

UNTIL NOT erfolg PER; 

write (werk, exemplare, exgr); 

erfolg: =TRUE 
ELSE delete (werk); 

meldung ("ohne Exemplarbezeichnung keine Aufnahme"); 

pause (100) 

FI 

END PROC titel aufnehmen; 



64 



REMIS Programmier - Handbuch 



PROC titel aendern: 
werk:= first (wgr); 
show (tagw); 
REP meldung 

titel suchen; 

IF erfolg CAND ja ("diesen Titel andern") 

THEN putget (werk) FI 
UNTIL nein ("noch ein Titel") PER; 
sort (wgr, 2) 
END PROC titel aendern; 

PROC weitere exemplare: 
werk: = first (wgr); 
exemplar : = first (egr); 
show (tagw); 
titel suchen; 
IF erfolg 

THEN read (werk, exemplare, exgr); 
REP exemplar aufnehmen; 
UNTIL NOT erfolg PER; 
write (werk, exemplare, exgr) 

FI 

END PROC weitere exemplare; 



Anhang: Beispiel 



PROC ausleihe: 

werk:=first ( wgr ) ; 
exemplar : = first (egr); 
benutzer:=first (bgr); 
show (taga); 
adatum:=datum (date); 
benutzer suchen; 

IF NOT erfolg COR nein ("an diesen Benutzer ausleihen") 
THEN IF ja ("Benutzer aufnehmen") 

THEN benutzer aufnehmen 

ELSE erfolg:=FAL5E 

FI 

FI; 

IF erfolg THEN ausleihen FI. 
ausleihen: 

show (tagw); show (tage); 

read (benutzer, entliehen, exgr); 

REP exemplar suchen; 

IF erfolg CAND ja ("Dieses Buch ausleihen") 
THEN ruecknahme; buchen FI 

UNTIL NOT erfolg PER; 

K^rite (benutzer, entliehen, exgr). 
buchen: 

hold (exgr, exemplar) ; 

write (exemplar, benref, benutzer) ; 

write (exemplar, adat, adatum) , 
benutzer aufnehmen: 

insert and reset (benutzer); 

write (benutzer, name, s); 

putget (benutzer) ; 

IF aufnahme ok 

THEN sort (bgr, 2); 
erfolg :=TRUE 

ELSE erfolg :=FALSE;deJete (benutzer) 

FI. 

aufnahme ok: (benutzer^name) > 
END PROC ausleihe; 
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PROC rueckgabe: 

exemplar := first (egr); 
show (tagw); show (tage); 
REP exemplar suchen; 

IF erfolg CAND ja ("Dieses Buch zurucknehmen") 
THEN ruecknahme FI 
UNTIL nein ("noch eine Ruckgabe") PER 
END PROC rueckgabe; 

PROC exemplar loeschen: 
exemplar :=first (egr); 
show (tagw); show (tage); 
exemplar suchen; 
IF erfolg 
THEN IF ausgeliehen 

THEN meldung ("nicht moglich, ausgeliehen"); pause (100) 

ELIF ja ("Dieses Exemplar Idschen") 

THEN loeschen 

FI 

FI. 

ausgeliehen: another (exemplar^benref). 

loeschen: 

read (exemplar, werkref, wref); 

delete (exemplar) ; 

werk ohne exemplar loeschen. 

werk ohne exemplar loeschen: 

read (wref, exemplare , exgr); 

IF groupcount (exgr) = 0 THEN delete (wref) FI 
END PROC exemplar loeschen; 



Anhang: Beispiel 



PROC benutzeranzeige : 

frage antwort ("Benutzername oder q"); 
IF s <> "q" 

THEN benutzer: = first (bgr); 

first (benutzer, name = s); 
WHILE another (benutzer) 
REP benutzer anzeigen; 

next (benutzer) 
UNTIL nein ("nachster Benutzer'') PER 

FI. 

benutzer anzeigen: 

putze ab zeile (erste zeile); 

put (benutzer_name) ; 

put (benutzer_vorname) ; 

putline (benutzer^klasse) ; 

read (benutzer, entliehen, exgr); 

ex:=first (exgr); 

WHILE another (ex) 

REP read (ex, werkref, wref); 

put (ex_exbez); 

out (wref^autor) ; out (*': "); 

out (wref^titel); out ("; "); 

out (datum (ex^adat)) ; line; 

next (ex) 

PER 

END PROC benutzeranzeige; 
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PROC titelanzeige: 

frage antwort ("Autor oder q"); 

IF s <> "q" 

THEN werk: = first (wgr); 

first (werk, autor = s); 
WHILE another (werk) 
REP titel anzeigen; 

next (werk); 
UNTIL nein ("nachster Titel") PER 

FI. 

titel anzeigen: 

putze ab zeile (erste zeile); 

out (werk_autor) ; out 

out {werk_titel) ; line; 

read (werk, exemplare, exgr); 

ex:=first (exgr); i:=0; 

WHILE another (ex) 

REP naechste zeile; 

put (ex_exbez) ; 

read (ex, benref, bref); 

IF another (bref) 

THEN put (bref_name) ; 
put {bref^klasse) ; 
out {datum (ex_adat)) ; 

FI; line; 

next (ex) 

PER. 

naechste zeile: 
IF i > 15 

THEN IF no ("welter") 

THEN LEAVE titelanzeige 
ELSE i:=l; 

putze ab zeile (erste zeile + 1) 

FI 

ELSE i INCR 1 
FI 

END PROC titelanzeige; 



Anhang: Beispiel 



PROC werke zeigen: 
werk:=first (wgr); 

frage antwort ("Anhalten mit bel. Taste; Bitte Autor"); 
first (werk, autor=s); 
WHILE another (werk) 
REP zeigen; next (werk) PER; 
put ("#^^» ENDE *#♦"); pause (1000). 
zeigen: 

put {werk_autor) \ 
putline {werk_titel) \ 
IF incharety > 
THEN IF no ("weiter") 

THEN LEAVE werke zeigen 

ELSE eine zeile hoch FI 

FI 

END PROC werke zeigen; 

PROC exemplare zeigen: 
exemplar :=first (egr); 

frage antwort ("Anhalten mit bel. Taste; Bitte Exemplarbez 
first (exemplar, exbez=s); 
WHILE another (exemplar) 
REP zeigen; next (exemplar) PER; 
put ENDE ♦♦*"); pause (1000). 

zeigen: 

put {exemplar_exbez) ; 

putline (exemplar_werkref_titel); 

IF incharety > 

THEN IF no ("welter") 

THEN LEAVE exemplare zeigen 

ELSE eine zeile hoch FI 

FI 

END PROC exemplare zeigen; 
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PROC benutzer zeigen: 
benutzer:= first (bgr); 

frage antwort ("Anhalten mit bel. Taste; Bitte Benutzername") ; 
first (benutzer, name=s); 
WHILE another (benutzer) 
REP zeigen; next (benutzer) PER; 
put ENDE ***"); pause (1000). 

zeigen: 

put {benutzer_name) ; 
put {benutzer_vorname) ; 
putline {benutzer_klasse) ; 
IF incharety > 
THEN IF no ("weiter") 

THEN LEAVE benutzer zeigen 

ELSE eine zeile hoch FI 

FI 

END PROC benutzer zeigen; 

PROC benutzer suchen: 
erfolg:=FALSE; 

meldung ("Benutzername oder ESC"); 

& . - f 

put get (taga, s, namensfeld) ; 
IF s > 

THEN meldung (""); 

first (benutzer, name = s); 

WHILE NOT erfolg AND another (benutzer) 

REP put (benutzer) ; 

IF nein ("nachster Benutzer") 

THEN erfolg :=TRUE 

ELSE next (benutzer) 

FI 

PER 

FI. 

namensfeld: field with name (taga, SEG name) 
END PROC benutzer suchen; 



Anhang: Beispiel 



PROC exemplar suchen: 
erfolg:=FALSE; 

meldung ("Exemplarbezeichnung oder ESC"); 
s:=""; putget (tage, s, 1); 
IF s > 

THEN meldung ('"0; 

first (exemplar, exbez = s); 
IF found 

THEN put {exemplar_werkref) ; 
erfolg:=TRUE 

ELSE meldung ("Exemplar nicht gefunden"); pause (100) 
FI 

FI 

END PROC exemplar suchen; 

PROC titel suchen: 
erfolg:=FALSE; 

meldung ("Bitte Autor oder ESC"); 

s:=""; putget (tagw, s, 1); 

IF s > "" 

THEN meldung (""); 

first (werk, autor = s); 

WHILE NOT erfolg AND another (werk) 

REP put (werk); 

IF nein ("nachster Titel") 
THEN erfolg :=TRUE 
ELSE next (werk) 
FI 

PER; 

IF NOT erfolg 

THEN meldung ("Titel nicht gefunden"); pause (100) 
FI 

FI 

END PROC titel suchen; 
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PROC exemplar aufnehmen: 
meldung ("Daten oder ESC"); 
s/70»v (tage); 
erfolg:=FALSE; 
salt:=""; s:=salt; 
REP putget (tage, s, 1); 
IF s = salt 

THEN LEAVE exemplar aufnehmen FI; 
first (exemplar, exbez = s); 
I F found 

THEN meldung ("Exemplar vorhanden, bitte andern oder ESC"); 

salt:=s 
ELSE insert (exemplar) ; 

erfolg:=TRUE 

FI 

UNTIL erfolg PER; 

hold (exgr, exemplar); 

exemplarwerte eintragen. 
exemplarwerte eintragen: 

write (exemplar, exbez, s); 

reset (exemplar , adat); 

reset (exemplar , benref); 

write (exemplar, werkref, werk) 
END PROC exemplar aufnehmen; 



Anhang: Beispiel 
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PROC ruecknahme: 

read (exemplar, benref, bref); 

IF another (bref) 

THEN bei benutzer abbuchen; 

reset (exemplar, adat); 

reset (exemplar, benref) 

FI. 

bei benutzer abbuchen: 

GROUP VAR g:=new groupC'EXEMPLAR") ; 

read (bref, entliehen, g) ; 

ex: = first (g); 

first (ex, exemplar); 

IF another (ex) 

THEN unhold (ex); 

write (bref, entliehen, exgr) 

FI; forget (g) 
END PROC ruecknahme; 

GROUP PROC arbeitsgruppe (TEXT CONST groupname, classname): 
IF group exists (groupname) 
THEN group (groupname) 
ELSE new group (classname, groupname) 
FI 

END PROC arbeitsgruppe; 

PROC insert and reset (REF VAR r): 
BOOL VAR vorhanden; 
SEGMENT VAR seg; 
insert (r); 

begin segment list (r); 
next segment (seg, vorhanden) ; 
WHILE vorhanden 
REP reset (r, seg); 

next segment (seg, vorhanden) 

PER 

END PROC insert and reset; 
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PROC putze ab zeile (INT CONST z): 

cursor (1, z); out (""4"") 
END PROC putze ab zeile; 

PROC meldung (TEXT CONST t): 

put (tagst, t, 4) 
END PROC meldung; 

BOOL PROC ja (TEXT CONST t): 

out (''"i""io""5""); yes (t) 
END PROC ja; 

BOOL PROC nein (TEXT CONST t): 

out (""i""io""5""); no (t) 
END PROC nein; 

PROC frage antwort (TEXT CONST fragetext): 
cursor (1, 2); put (fragetext); get (s); 
cursor (1, erste zeile) 

END PROC frage antwort; 

bibinit . 

eine zeile hoch: out (""3"") 
END PACKET bib 



Anhang: Funktionen - Gruppen 



10.2 REMIS - Funktionen nach Gruppen 
Bearbeitung der Datenbank 

base exists — > BOOL 
kill base 

load base (TASK CONST manager task) 
load base 

save base (TASK CONST manager task) 
save base 



Bearbeitung von Klassen 

class exists (TEXT CONST name) - - > BOOL 
clear (TEXT CONST classname) 
delete class (TEXT CONST name) 

delete segment (TEXT CONST segmentname, classname) 
new class (TEXT CONST name) 

new segment (TEXT CONST segmentname, classname, INT CONST wert) 
new segment (TEXT CONST segmentname, classname, REAL CONST wert) 
new segment (TEXT CONST segmentname, classname, wert) 
new segment (TEXT CONST segmentname, classname, targetclassname, 

REF CONST wert) 
new segment (TEXT CONST segname, classname, GROUP VAR g) 
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Bearbeitung von Gruppen 

TYPE GROUP 

: = (GROUP VAR a, GROUP CONST b) 

add group segment (GROUP VAR g, SEGMENT CONST segment) 

all class segments (GROUP yAR g) 

class of (GROUP CONST g) --> TEXT 

clear (GROUP VAR g) 

copy of (GROUP CONST g) --> GROUP 

exists (GROUP CONST g) - - > BOOL 

forget (GROUP VAR g) 

group (TEXT CONST name) - - > GROUP 

group exists (TEXT CONST name) - - > BOOL 

groupcount (GROUP CONST g) - - > INT 

keep group (GROUP CONST g, TEXT CONST name) 

new group (TEXT CONST classname) - - > GROUP 

new group (TEXT CONST classname, groupname) — > GROUP 

no group segment (GROUP CONST g) 

reorganize grouptable 

reset sorted (GROUP CONST g) 

sort (GROUP CONST g, INT CONST n) 

sorted (GROUP CONST g) - - > INT 



Bearbeitung von Objekten 

delete (REF VAR r) 

hold (GROUP VAR g. REF CONST r) 

hold (REF VAR wohin, REF CONST r) 

insert (REF VAR r) 

unhold (REF VAR r) 



Anhang: Funktlonen - Gruppen 



Bearbeitung von Referenzen 

TYPE REF 

: = (REF VAR a, REF CONST b) 

= (REF CONST a. REF CONST b) - - > BOOL 

another (REF CONST r) --> BOOL 

first (REF VAR r) 

first (REF VAR a. REF CONST b) 

first (REF VAR r, segment = konstante) 

first (GROUP CONST g) REF 

found - - > BOOL 

group (REF CONST r) - - > GROUP 

is ref of (REF CONST r, GROUP CONST g) - - > BOOL 

is ref of (REF CONST r, TEXT CONST classname) - - > BOOL 

last (REF VAR r) 

last (GROUP CONST g) --> REF 
next (REF VAR r) 

next (REF VAR r, segment = konstante) 
nilref — > REF 
prior (REF VAR r) 



Bearbeitung von Segmenten 

TYPE GROUPSEGMENT 
TYPE INTSEGMENT 
TYPE REALSEGMENT 
TYPE REFSEGMENT 
TYPE SEGMENT 
TYPE TEXTSEGMENT 

_ (REF CONST r, INTSEGMENT CONST s) - 
_ (REF CONST r, REALSEGMENT CONST s) 
_ (REF CONST r, REFSEGMENT CONST s) - 
_ (REF CONST r, SEGMENT CONST s) - - > 
_ (REF CONST r, TEXTSEGMENT CONST s) 



-> INT 

- - > REAL 
-> REF 

TEXT 

- - > TEXT 
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: = (INTSEGMENT VAR a, SEGMENT CONST b) 
: = (REALSEGMENT VAR a, SEGMENT CONST b) 
:= (TEXTSEGMENT VAR a, SEGMENT CONST b) 
: = (REFSEGMENT VAR a. SEGMENT CONST b) 
:= (GROUPSEGMENT VAR a. SEGMENT CONST b) 
: = (SEGMENT VAR a, SEGMENT CONST b) 
= (SEGMENT CONST a, b) - - > BOOL 
SEG (TEXT CONST name) --> SEGMENT 
SEG (INTSEGMENT CONST s) - - > SEGMENT 
SEG (REALSEGMENT CONST s) - - > SEGMENT 
SEG (TEXTSEGMENT CONST s) - - > SEGMENT 
SEG (REFSEGMENT CONST s) - - > SEGMENT 
SEG (GROUPSEGMENT CONST s) - - > SEGMENT 

Clear (SEGMENT CONST s) 
generate declarations 
insert declarations 

is segment of (SEGMENT CONST s, GROUP CONST g) - - > BOOL 

is segment of (SEGMENT CONST s. REF CONST r) - - > BOOL 

is segment of (SEGMENT CONST s, TEXT CONST classname) - - > BOOL 

last conversion done — > BOOL 

read (REF CONST r, SEGMENT CONST s. TEXT VAR w) 

read (REF CONST r, INTSEGMENT CONST s, INT VAR wert) 

read (REF CONST r. REALSEGMENT CONST s, REAL VAR wert) 

read (REF CONST r, TEXTSEGMENT CONST s, TEXT VAR wert) 

read (REF CONST r, REFSEGMENT CONST s, REF VAR wert) 

read (REF CONST r, GROUPSEGMENT CONST s, GROUP VAR wert) 

reset (REF CONST r, SEGMENT CONST s) 

segment (TEXT CONST name) - - > SEGMENT 

segment (TEXT CONST segmentname, classname) — > SEGMENT 

segment exists (TEXT CONST name) - - > BOOL 

segment name (SEGMENT CONST s) --> TEXT 

valid value written — > BOOL 

write (REF CONST r, SEGMENT CONST s, TEXT CONST w) 
write (REF CONST r, INTSEGMENT CONST s, INT CONST wert) 
write (REF CONST r, REALSEGMENT CONST s, REAL CONST wert) 
write (REF CONST r, TEXTSEGMENT CONST s. TEXT CONST wert) 
write (REF CONST r. REFSEGMENT CONST s, REF CONST wert) 
write (REF CONST r, GROUPSEGMENT CONST s, GROUP CONST wert) 



Anhang: Funktionen -Gruppen 
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Datenbank - Verwaltung 

aktual mode — > INT 
begin classlist 
begin grouplist 

begin segmentlist (TEXT CONST class) 

begin segmentlist (GROUP CONST g) 

begin segmentlist (REF CONST r) 

convert by (SEGMENT CONST conversion methode) 

db list (TEXT CONST dateiname) 

db list 

init conversion handling 

new conversion table entry (SEGMENT CONST s, TEXT CONST wert, 

INT CONST code) 

new methode (SEGMENT CONST s, INT CONST mode) 

next class list entry (TEXT VAR name) 

next group list entry (TEXT VAR groupname, classname) 

next segment (SEGMENT VAR s, BOOL VAR gefunden) 

reorganize (SEGMENT CONST segment) 

segment type (SEGMENT CONST s) --> INT 

segment type (SEGMENT CONST s, TEXTSEGMENT VAR t. 

INTSEGMENT VAR i, REALSEGMENT VAR r, 

REFSEGMENT VAR rr, GROUPSEGMENT VAR g) - - > INT 

type text (INT CONST segmenttyp) - - > TEXT 

version — > INT 



Sonstige DB-Prozeduren 

pack (TEXT CONST wert, INT VAR code, BOOL VAR okay) 
pack (TEXT CONST wert, INT VAR code) 
unpack (TEXT VAR wert, INT CONST code, BOOL VAR okay) 
unpack (TEXT VAR wert, INT CONST code) 
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Verwendung von Formularen 

TYPE TAG 

: = (TAG VAR a, TAG CONST b) 

INITBY (TAG VAR t, TEXT CONST name) 

SCROLL (TAG VAR t, INT CONST n) 

auskunfts nr (TAG CONST t, INT CONST feldnr) - - > INT 
auskunfts nr — > INT 

execute command code (TAG CONST t, INT VAR feldnr) 

field exists (TAG CONST t, INT CONST feldnr) - - > BOOL 

field with name (TAG CONST t, INT CONST name) - - > INT 

field with name (TAG CONST t, SEGMENT CONST s) - - > INT 

fields (TAG CONST t) - - > INT 

first field (TAG CONST t) - - > INT 

form line (TAG CONST t, INT CONST n) - - > TEXT 

get (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 

get (TAG CONST t, ROW 100 TEXT VAR werte, INT VAR feldnr) 

get (TAG CONST t, INT CONST feldnr) - - > TEXT 

leaving code — > INT 

length (TAG CONST t, INT CONST feldnr) - - > INT 

next field (TAG CONST t, INT CONST feldnr) - - > INT 

prior field (TAG CONST t, INT CONST feldnr) - - > INT 

protect (TAG VAR t, INT CONST feldnr, BOOL CONST schreibschutz) 

protected (TAG CONST t, INT CONST feldnr) - - > BOOL 

put (TAG CONST t, TEXT CONST wert. INT CONST feldnr) 

put (TAG CONST t, ROW 100 TEXT VAR werte) 

putget (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 

putget (TAG CONST t, ROW 100 TEXT VAR werte, INT VAR feldnr) 

reorganize screen 

set field infos (TAG VAR t, INT CONST feldnr, 

BOOL CONST closed, protected, secret) 

set last edit values 
show (TAG CONST t) 

symbolic name (TAG CONST t, INT CONST feldnr) - - > INT 
tag (TEXT CONST name) --> TAG 
tag (REF CONST r) TAG 



Anhang: Funktionen - Gruppen 



tag exists (TEXT CONST name) - - > BOOL 
X size (TAG CONST t) - - > INT 
y size (TAG CONST t) - - > INT 



Verwendung von Formularen mit Datenbankdaten 

get (REF VAR r, TAG CONST t) 

get (REF VAR r, TAG CONST t, INT VAR feldnr) 

get (REF VAR r) 

link tag to group (GROUP VAR g, TEXT CONST tagname) 
put (REF CONST r, TAG CONST t) 
put (REF CONST r) 

put (TAG CONST t, INT CONST symb name, TEXT CONST wert) 

put (TAG CONST t. SEGMENT CONST s. TEXT CONST wert) 

putget (REF VAR r) 

putget (REF VAR r, TAG CONST t) 

putget (REF VAR r, TAG CONST t, INT VAR feldnr) 

show (REF CONST r) 



Verwendung von Formularen fur Ausgabe 

CLEARBY (TAG VAR ziel, TAG CONST quelle) 
clear board 

fill (TAG VAR t, TEXT CONST wert, INT CONST feldnr) 

get board (FILE VAR datei) 

next boardline — > INT 

pin (TAG CONST t, INT CONST spalte.zeile) 

pin (TAG CONST t, INT CONST spalte) 

pin (TAG CONST t) 

pin (TAG CONST t, TEXT CONST symbol) 

pin (TAG CONST t, TEXT CONST symbol, BOOL VAR erfolg) 

pin (TEXT CONST text, INT CONST spalte.zeile) 

put board 

put board (FILE VAR datei) 
set boardline (INT CONST zahl) 
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Ausgabe von Datenbankdaten 

FILLBY (TAG VAR t, REF CONST r) 
GENBY (TAG VAR t, REF VAR r) 

fill (TAG VAR t, SEGMENT CONST s, TEXT CONST wert) 
fill (TAG VAR t, INT CONST feldname. TEXT CONST wert) 



Formular - Verwaltung 

TO (TAG CONST t, FILE VAR datei) 
TO (FILE VAR datei, TAG VAR t) 

begin taglist 

clear field (TAG VAR t, INT CONST feldnr) 

copy tag (TEXT CONST alt, neu) 

design (TAG VAR t) 

design fields (TAG VAR t) 

design form (T AG VAR t) 

forget tag (TEXT CONST name) 

list tags 

next tag list entry (TEXT VAR name) 
nil (TAG VAR t) 

rename tag (TEXT CONST alt, neu) 
restore tag (TAG CONST t, TEXT CONST name) 
store tag (TAG CONST t, TEXT CONST name) 
trans (TEXT CONST pseudoblank inversan inversaus) 
transform (TAG CONST t. FILE VAR datei) 
transform (FILE VAR datei. TAG VAR t) 



Anhang: Funktionen - Gruppen 



Menue - Generator 

clear menue 

menuecursor (TEXT CONST t) 

minimenue 

next screen 

put fehler (TEXT CONST msg) 

put old commands 

return symbol (TEXT CONST z) 

return symt)ol — > TEXT 

return to father 

screen version — > INT 

transform (TEXT CONST name) 
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Multi - User DB - Manager 

multi user base 



Multi - User Arbeitstask 

OPEN (TEXT CONST dbmanager name) 

read transaction (PROG prozedur) 
write transaction (PROC prozedur) 



sql 

sql (TEXT CONST dateiname) 



Task - Kommunikation 

ask (INT CONST order, DATASPACE VAR ds, INT VAR returncode) 
call (TEXT CONST taskname) 
call (TEXT CONST taskname, 

PROC (INT VAR code. DATASPACE VAR ds) prozedur) 
continue 
return control 



Anhang: Funktionen - Gruppen 
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Arbeiten mit Datum 

datum (TEXT CONST d) - - > INT 
datum (INT CONST t.m.j) - - > INT 
datum (INT CONST d) - - > TEXT 
datumjh (INT CONST d) - - > TEXT 
jahr (INT CONST d) - - > INT 
jahrestag (INT CONST d) - - > INT 
monat (INT CONST d) --> INT 
nildatum — > INT 
tag (INT CONST d) - - > INT 
tmj (INT CONST d, INT VAR t.m.j) 
wochentag (INT CONST d) --> INT 
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10.3 REMIS - Funktionen alphabetisch 

GROUP 

TYPE GROUP 

Zweck: Interner GROUP - Bezeichner 

GROUPSEGMENT 

TYPE GROUPSEGMENT 

Zweck: interner GROUPSEGMENT - Bezeichner 

INTSEGMENT 

TYPE INTSEGMENT 

Zweck: interner INTSEGMENT - Bezeichner 

REALSEGMENT 

TYPE REALSEGMENT 

Zweck: interner REALSEGMENT - Bezeichner 

REF 

TYPE REF 

Zweck: Referenz; enthSIt internen GROUP- Bezeichner, Position in der 
Gruppe, Referenz auf Objekt, internen Klassen - Bezeichner, Refe- 
renz auf Standardformular 

REFSEGMENT 

TYPE REFSEGMENT 

Zweck: interner REFSEGMENT - Bezeichner 

SEGMENT 

TYPE SEGMENT 

Zweck: interner SEGMENT - Bezeichner 

TAG 

TYPE TAG 

Zweck: Datentyp fur ein Formular 

TEXTSEGMENT 

TYPE TEXTSEGMENT 

Zweck: interner TEXTSEGMENT - Bezeichner 



Anhang: Funktionen alphabetisch 
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(Unterstrich) 

INT OP (REF CONST r, INTSEGMENT CONST s) 

REAL OP _ (REF CONST r, REALSEGMENT CONST s) 

REF OP _ (REF CONST r, REFSEGMENT CONST s) 

TEXT OP (REF CONST r, TEXTSEGMENT CONST s) 

Zweck: liefert den Wert des Segments s des durch r referierten Objekts; 

Warnung: s muB zur referierten Klasse gehoren, sonst falsches 

Ergebnis 

Fehler: Wrong segment type: <typ> 

TEXT OP _ (REF CONST r. SEGMENT CONST s) 

Zweck: liefert den Wert des Segments s des durch r referierten Objekts, 
konvertiert nach der s zugeordneten Methode 

Fehler: keine Textumwandlung fur diesen Typ (REF- Oder GROUP- 
SEGMENT) 



OP : = (INTSEGMENT VAR a. SEGMENT CONST b) 

OP : = (REALSEGMENT VAR a, SEGMENT CONST b) 

OP : = (TEXTSEGMENT VAR a, SEGMENT CONST b) 

OP : = (REFSEGMENT VAR a. SEGMENT CONST b) 

OP : = (GROUPSEGMENT VAR a, SEGMENT CONST b) 

Zweck: Zuweisung mit Typkontrolle; falls mdglich bezeichnen anschlies- 

send a und b dasselbe Segment 
Fehler: segmenttyp ist nicht INT (oder nicht vorhanden) 

segmenttyp ist nicht REAL (oder nicht vorhanden) 

segmenttyp ist nicht TEXT (oder nicht vorhanden) 

segmenttyp ist nicht REF (oder nicht vorhanden) 

segmenttyp ist nicht GROUP (oder nicht vorhanden oder 

keine gultige Beispielgruppe) 



OP : = (SEGMENT VAR a, SEGMENT CONST b) 

Zweck: Zuweisung; a und b bezeichnen anschlieBend dasselbe Segment 
(Oder nichts) 

OP : = (GROUP VAR a, GROUP CONST b) 

Zweck: Nach der Zuweisung bezeichnen a und b dieselbe Gruppe (oder 
nichts) 
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OP : = (REF VAR a, REF CONST b) 

Zweck: nach der Zuweisung referieren a und b dasselbe Objekt in derselben 
Gruppe 

OP : = (TAG VAR a, TAG CONST b) 
Zweck: b wird auf a ubertragen 



BOOL OP = (SEGMENT CONST a, b) 

Zweck: liefert TRUE, wenn a und b dasselbe Segment bezeichnen 
BOOL OP = (REF CONST a, REF CONST b) 

Zweck: liefert TRUE, wenn a und b dasselbe Objekt referieren; a und b 
brauchen nicht zur selben Gruppe zu gehoren. 

CLEARBY 

OP CLEARBY (TAG VAR ziel, TAG CONST quelle) 

Zweck: uberschreibt alle (ymax (ziel)) Zeilen in ziel mit den ersten (ymax (ziel)) 
Zeilen von quelle; 

sinnvoll fur: schnelles Leeren eines mit Daten gefullten Formulars aus 
einer aufbewahrten leeren Kopie 

FILLBY 

OP FILLBY (TAG VAR t, REF CONST r) 

Zweck: trSgt die Werte des durch r referierten Objekts in t ein 
GENBY 

OP GENBY (TAG VAR t, REF VAR r) 

Zweck: erzeugt in t das zu r gehorende Formular und tragt die Werte des 
durch r referierten Objekts ein 

INITBY 

OP INITBY (TAG VAR t, TEXT CONST name) 
Zweck: erzeugt in t das Formular name 
Fehler: TAG <name> unbekannt 
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OPEN 

OP OPEN (TEXT CONST dbmanager name) 

Zweck: erfiffnet die Kommunikation mit dem Datenbank - Manager; 

(schlieBen mit 'kill base') 
Fehler: Datenbank "< dbmanager name>" noch often 

Keine DB - Manager - Task 

DB- Version zu alt 



SCROLL 

OP SCROLL (TAG VAR t, INT CONST n) 

Zweck: verschiebt t um n Zeilen auf dem Bildschirm (n > 0: nach unten, 
n < 0: nach oben); t kann mit den neuen Positionen auch gespei- 
chert werden 

Fehler: Feld ausserhalb Bildschirm durch SCROLL 



SEG 

SEGMENT OP SEG (TEXT CONST name) 

Zweck: liefert den internen Bezeichner des existierenden Segments name 
Fehler: segment not existing: <name> 



SEGMENT OP SEG (INTSEGMENT CONST s) 
SEGMENT OP SEG (REALSEGMENT CONST s) 
SEGMENT OP SEG (TEXTSEGMENT CONST s) 
SEGMENT OP SEG (REFSEGMENT CONST s) 
SEGMENT OP SEG (GROUPSEGMENT CONST s) 
Zweck: liefert den internen Bezeichner von s 



TO 

OP TO (TAG CONST t. FILE VAR datei) 

Zweck: ubertragt das Bild von t in editierbarer Form (wie von 'design form' 
angeboten) in die Textdatei datei 

OP TO (FILE VAR datei, TAG VAR t) 

Zweck: erzeugt in t ein Formular aus dem in den ersten (maximal 24) Satzen 
von datei abgelegten Formularbild 
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add group segment 

PROC add group segment (GROUP VAR g, SEGMENT CONST segment) 
Zweck: erweitert die Gruppe g urn segment, falls es noch nicht dazugehort 
Fehler: Segment gehfirt nicht zur Class 

aktual mode 

INT PROC aktual mode 

Zweck: liefert die uber 'convert by' eingestellte Konversionsmethode 

all class segments 

PROC all class segments (GROUP VAR g) 

Zweck: ordnet g alle noch nicht zu g gehOrenden Segmente der zugehorigen 
Klasse zu in der Reihenfolge, in der sie zu der Klasse hinzugefugt 
wurden 

another 

BOOL PROC another (REF CONST r) 

Zweck: liefert TRUE, wenn r ein gultiges Objekt referiert 

ask 

PROC ask (INT CONST order, DATASPACE VAR ds, 

INT VAR returncode) 
Zweck: fragt mit order und ds und Terminalubergabe bei der aufrufenden 

Task nach und erwartet eine Antwort in ds und returncode 

auskunfts nr 

INT PROC auskunfts nr (TAG CONST t, INT CONST feldnr) 

Zweck: liefert die zum Feld feldnr in t gehdrende Auskunftsnummer 

INT PROC auskunfts nr 

Zweck: liefert die aktuelle Auskunftsnummer (wird beim Verlassen einer 
Maske durch ESC gesetzt) 

base exists 

BOOL PROC base exists 

Zweck: liefert TRUE, wenn eine Bank in der Task existiert 



Anhang: Funktionen alphabetisch 



91 



begin classiist 

PROC begin classiist 

Zweck: initialisiert die Liste der Objektklassen 

begin grouplist 

PROC begin grouplist 

Zweck: initialisiert die Liste der Gruppen 

begin segmentlist 

PROC begin segmentlist (TEXT CONST class) 
Zweck: initialisiert die Liste der Segmente von class 

PROC begin segmentlist (GROUP CONST g) 
Zweck: initialisiert die Liste der Segmente von g 

PROC begin segmentlist (REF CONST r) 

Zweck: initialisiert die Liste der Segmente der zu r gehdrenden Gruppe oder 
Klasse 

begin taglist 

PROC begin taglist 

Zweck: initialisiert die Lister der Formular-Definitionen 

call 

PROC call (TEXT CONST taskname) 

Zweck: libergibt die Kontrolle und das Terminal an Task taskname 
Fehler: Task "< taskname >" wird benutzt (anwortet nicht) 

PROC call (TEXT CONST taskname, 

PROC (INT VAR code. DATASPACE VAR ds) prozedur) 

Zweck: ubergibt Kontrolle und Terminal an Task taskname; bei Ruckkehr wird 
prozedur mit code und ds ausgefuhrt, wobei in code ein ordercode 
ubergeben wird und ein returncode zuruckzugeben ist. Falls prozedur 
das Terminal braucht, muB sie es durch 'continue' besorgen und am 
Ende durch 'return control' zuriickgeben 

Fehler: Task "< taskname > " wird benutzt (antwortet nicht) 
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class exists 

BOOL PROG class exists (TEXT CONST name) 

Zweck: liefert TRUE, wenn eine Klasse name vorhanden ist 

class of 

TEXT PROG class of (GROUP GONST g) 

Zweck: liefert den Namen der zu g gehorenden Klasse 

Fehler: subscript underflow (wenn g keine gultige Gruppe bezeichnet) 

clear 

PROG clear (TEXT GONST classname) 

Zweck: loscht alle Objekte der Klasse classname 

PROG clear (SEGMENT GONST s) 

Zweck: Idscht den Inhalt von s in alien Objekten 

PROG clear (GROUP VAR g) 

Zweck: loscht in g alle Referenzen (nicht die referierten Objekte) 
Fehler: undefined group (falls g keine gultige Gruppe bezeichnet) 

clear board 

PROG clear board 

Zweck: erzeugt ein leeres Pinboard 
clear field 

PROG clear field (TAG VAR t, INT GONST feldnr) 
Zweck: loscht Feld feldnr aus Formular t 

clear menue 

PROG clear menue 

Zweck: I6scht den durch das Menue - Formular belegten Bildschirmbereich 

continue 

PROG continue 

Zweck: holt das durch 'call' abgegebene Terminal zuruck 
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convert by 

PROC convert by (SEGMENT CONST s) 

Zweck: schaltet die zu s gehorende Konversionsmethode ein; alle nachfol- 
genden Konvertlerungen werden entsprechend durchgefuhrt 

copy of 

GROUP PROC copy of (GROUP CONST g) 

Zweck: erzeugt und liefert eine Kopie von g, falls mogllch 

Fehler: grouptable overflow 

copy tag 

PROC copy tag (TEXT CONST alt, neu) 

Zweck: erzeugt von der Formulardefinition alt eine Kopie mit dem Namen 

neu, falls mogllch 
Fehler: TAG <alt> unbekannt 

tag already existing 

datum 

INT PROC datum (TEXT CONST datumstext) 

Zweck: liefert den Datumscode fur datumstext (in der Form tt.mm.jj) 

INT PROC datum (INT CONST t, m, j) 
Zweck: liefert den Datumscode 

TEXT PROC datum (INT CONST d) 

Zweck: liefert den Datumstext (in der Form tt.mm.jj) fur Datumscode d 
datumjh 

TEXT PROC datumjh (INT CONST d) 

Zweck: liefert den Datumstext mit Jahrhundert (in der Form tt.mm.jjjj) 

dblist 

PROC db list 

Zweck: generiert ein Inhaltsverzeichnis der vorhandenen Datenbank in die 
Textdatei 'DB-list', zeigt die Liste und I6scht sie nach Wunsch 

PROC dblist (TEXT CONST datelname) 

Zweck: generiert ein Inhaltsverzeichnis der vorhandenen Datenbank in die 
Textdatei datelname 
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delete 

PROC delete (REF VAR r) 

Zweck: Idscht das durch r referierte Objekt aus seiner Klasse und damit aus 
alien Gruppen; anschlleBend referlert r das Objekt, das (vor dem 
Loschen) mit 'next (r)' erreicht worden ware 

delete class 

PROC delete class (TEXT CONST name) 
Zweck: loescht die Klasse name 

delete segment 

PROC delete segment (TEXT CONST segmentname, classname) 

Zweck: I6scht das Segment segmentname bei der Klasse classname (und 

alien ihren Objekten) 
Fehler: class < classname > not existing. 

Warnung: < segmentname > ist nicht in < classname > 

design 

PROC design (TAG VAR t) 

Zweck: bietet t zum interaktiven design an; ruft design form und design fields, 
letzteres jedoch ohne symbolische Feldnamen (bzw. Segmentzuord- 
nung) 

design fields 

PROC design fields (TAG VAR t) 

Zweck: eriaubt interaktives Erzeugen, Andern und L6schen von Datenfeld- 
Definitionen fur t mit Segmentzuordnung und Feldeigenschaften 
(geschutzt, Standardanzeige) 

design form 

PROC design form (TAG VAR t) 

Zweck: eriaubt die interaktive Gestaltung des Bildes von t; wenn t nicht 
existiert, wird ein leeres TAG erzeugt 

execute command code 

PROC execute command code (TAG CONST t, INT VAR feldnr) 
Zweck: interpretiert 'leaving code' (s.u.) und setzt feldnr auf einen entspre- 
chenden neuen Wert 
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exists 

BOOL PROG exists (GROUP GONST g) 

Zweck: liefert TRUE, wenn g eine Gruppe bezeichnet, sonst FALSE 
fields 

INT PROG fields (TAG GONST t) 

Zweck: liefert die hGchste Feldnummer, die in t irgendwann existierte 
Warnung: nicht zu jeder Nummer muB ein Feld existieren 

field exists 

BOOL PROG field exists (TAG GONST t, INT GONST feldnr) 
Zweck: liefert TRUE, wenn Feld feldnr in t existiert, sonst FALSE 

field with name 

INT PROG field with name (TAG GONST t, INT GONST name) 
Zweck: liefert die Nummer des Feldes in t mit dem symbolischen Namen 
name Oder 0, falls es nicht existiert 

INT PROG field with name (TAG GONST t, SEGMENT GONST s) 
Zweck: liefert die Nummer des Feldes des in t zu s gehorenden Feldes 

fill 

PROG fill (TAG VAR t, TEXT GONST wert, INT GONST feldnr) 
Zweck: fulit Feld feldnr in t mit wert 

PROG fill (TAG VAR t, SEGMENT GONST s, TEXT GONST wert) 
Zweck: tragt wert in das s zugeordnete Feld von t ein 

PROG fill (TAG VAR t, INT GONST feldname, TEXT GONST wert) 
Zweck: trSgt wert in das Feld feldname von t ein 

first 

PROG first (REF VAR r) 

Zweck: setzt r auf das erste der von der assoziierten Gruppe referierten 
Objekte zuruck 
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PROC first (REF VAR a, REF CONST b) 

Zweck: positioniert a auf den Gruppeneintrag, der das gleiche Objekt referiert 
wie b, Oder auf Gruppenende; a und b brauchen nicht zur selben 
Gruppe zu gehoren 
bisheriger Name: next 

Fehler: REFs of different classes 

PROC first (REF VAR r, segment = konstante) 

Zweck: positioniert r auf das erste Objekt, dessen Segment segment 
(Bezeichner eines TEXTSEGMENTs Oder INTSEGMENTs) den Wert 
konstante hat. Wird kein solches Objekt gefunden, dann zeigt r bei 
sortierten Gruppen auf das nachstgroBere Objekt, bei nicht sortierten 
Gruppen hinter das letzte Objekt 

REF PROC first (GROUP CONST g) 

Zweck: liefert eine Referenz auf das erste der von g referierten Objekte 
first field 

INT PROC first field (TAG CONST t) 

Zweck: liefert die Nummer des ersten Feldes von t 

forget 

PROC forget (GROUP VAR g) 

Zweck: loscht die Gruppe g (falls permanent nach Anfrage); g bezeichnet 
anschlieBend keine Gruppe 

forget tag 

PROC forget tag (TEXT CONST name) 
Zweck: I5scht TAG name 
Fehler: TAG <name> unbekannt 

form line 

TEXT PROC form line (TAG CONST t, INT CONST n) 
Zweck: liefert Zeile n von t 

found 

BOOL PROC found 

Zweck: liefert TRUE, wenn das letzte first Oder next mit Suchkriterium erfolg- 
reich war, sonst FALSE 
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generate declarations 

PROC generate declarations 

Zweck: erzeugt fur die vorhandene Datenbank einen Deklarationsteil und 
eine Prozedur, in die ein Programm einkopiert werden kann, urn die 
Datenbankdeklarationen ohne Insertierung in dem Programm zur 
Verfugung zu haben 

get 

PROC get (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 
Zweck: liest uber Feld feldnr von t einen Text in die Variable wert 

PROC get (TAG CONST t. ROW 100 TEXT VAR werte, INT VAR feldnr) 
Zweck: bietet werte auf t zum Editieren an, ohne sie vorher auszugeben (sie 
konnen vorher ausgegeben worden sein (z.B. durch put)); feldnr 
bezeichnet das Feld von t, in das die Schreibmarke am Anfang 
gesetzt werden soli, bzw. in dem sie sich am Ende befand (Verlassen 
nur mit ESC) 
Fehler: startfeld nicht im tag 

PROC get (REF VAR r, TAG CONST t) 

Zweck: liest die Werte fur das durch r referierte Objekt uber t ein 
PROC get (REF VAR r, TAG CONST t, INT VAR feldnr) 

Zweck: liest die Werte fur das durch r referierte Objekt uber t ein; feldnr 
bezeichnet das Feld , in das die Schreibmarke am Anfang gesetzt 
werden soil, bzw. in dem sie sich am Ende befand 

Fehler: Einstiegsfeld gesperrt 

PROC get (REF VAR r) 

Zweck: liest Werte fur das durch r referierte Objekt uber das zugehorige 

Formular ein 
Fehler: Kein freies Feld zugeordnet 

TEXT PROC get (TAG CONST t, INT CONST feldnr) 

Zweck: liest uber das Feld feldnr von t einen Text ein und liefert ihn 

get board 

PROC get board (FILE VAR datei) 

Zweck: liest das Pinboard aus Datei datei 
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group 

GROUP PROC group (TEXT CONST name) 
Zweck: liefert die permanente Gruppe name 
Fehler: group does not exist 

GROUP PROC group (REF CONST r) 

Zweck: liefert die zu r gehfirende Gruppe; ist undefiniert, wenn r aus einem 
Segment gelesen wurde 

groupcount 

INT PROC groupcount (GROUP CONST g) 
Zweck: liefert die Anzahl der Objekte in g 

group exists 

BOOL PROC group exists (TEXT CONST name) 

Zweck: liefert TRUE, wenn die permanente Gruppe name vorhanden ist, 
sonst FALSE 

hold 

PROC hold (GROUP VAR g. REF CONST r) 

Zweck: hSngt r an g; r und g mussen Objekte derselben Klasse referieren 
(wird nicht gepruft); das Sortierkennzeichen wird auf 'nicht sortiert' 
gesetzt. Ungultige Referenzen in g werden geloscht. 

PROC hold (REF VAR wohin, REF CONST r) 

Zweck: fugt r vor wohin in die zu wohin gehdrende Gruppe ein; r und wohin 
mussen Objekte derselben Klasse referieren (wird nicht gepruft); 
anschlieBend gilt wohin = r; das Sortierkennzeichen bleibt erhalten. 
Ungultige Referenzen werden gelfischt. 

init conversion handling 

PROC init conversion handling 

Zweck: erzeugt (falls nicht bereits vorhanden) die CLASS 'CONVERSION', die 
die Informationen enthSIt, welche Segmente nach welchem Modus 
verschlusselt sind, und die Code-Tabellen fur im table -mode 
verschlusselte Segmente 
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insert 

PRCX: insert (REF VAR r) 

Zweck: erzeugt ein neues Objekt in der zu group (r) gehorenden Klasse und 
fugt eine Referenz darauf in group (r) ein vor der Position der aktu- 
ellen Referenz r; anschlieBend referiert r das neue Objekt; das Sor- 
tierkennzeichen bleibt erhalten, d.h. der Program mierer ist verant- 
wortlich fur die Reihenfolge in der Gruppe. Ungultige Referenzen 
werden aus der Gruppe geldscht. 

Fehler: Zu viele Objekte in class <classname> 

insert declarations 

PRCX) insert declarations 

Zweck: erzeugt und insertiert fur die vorhandene Datenbank ein Paket, das 
fur jedes Segment eine Konstante deklariert, die als Namen den des 
Segments hat und als Wert den internen Segmentbezeichner enthalt 

is ref of 

BOOL PROG is ref of (REF CONST r, GROUP CONST g) 
Zweck: liefert TRUE, wenn r mit g assoziiert ist 

BOOL PROC is ref of (REF CONST r, TEXT CONST classname) 
Zweck: liefert TRUE, wenn r ein Objekt der Klasse classname referiert 

is segment of 

BOOL PROC is segment of (SEGMENT CONST s, GROUP CONST g) 
Zweck: liefert TRUE, wenn s zu g geh6rt 

BOOL PROC is segment of (SEGMENT CONST s, REF CONST r) 
Zweck: liefert TRUE, wenn s zu r gehort 

BOOL PROC is segment of (SEGMENT CONST s, TEXT CONST ciname) 
Zweck: liefert TRUE, wenn s zu Klasse ciname gehort 

jahr 

INT PROC jahr (INT CONST d) 

Zweck: liefert das Jahr fur den Datumscode d 
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jahrestag 

INT PROC jahrestag (INT CONST d) 

Zweck: liefert den Jahrestag fur den Datumscode d (1.1. = 1 usw.) 



keep group 

PROC keep group (GROUP CONST g, TEXT CONST name) 

Zweck: ordnet der von g bezeichneten Gruppe den Namen name zu 

Fehler: duplicate groupname: < name > . 

subscript underflow (wenn g keine Gruppe bezeichnet) 

kill base 

PROC kill base 

Zweck: I5scht die ganze Datenbank (z.B. vor Laden vom Manager) 



last 

PROC last (REF VAR r) 

Zweck: setzt r auf das letzte der von der assoziierten Gruppe referierten 
Objekte 

REF PROC last (GROUP CONST g) 

Zweck: liefert eine Referenz auf das letzte der von g referierten Objekte 

last conversion done 

BOOL PROC last conversion done 

Zweck: liefert TRUE, wenn die letzte Konvertierung moglich war, sonst 
FALSE 



leaving code 

INT PROC leaving code 

Zweck: liefert den Code des Steuerzeichens, mit dem das letzte get Oder 
putget vom Benutzer beendet wurde 



bei Mehrfelderbearbeitung 
bei Einfeldbearbeitung 



0 
3 
9 

10: 



auskunft (HOP ?) 

OBEN 

TAB 

UNTEN 



27: ESC 

13: feld vor (RETURN) 

19: feld ruck (HOP RETURN) 

27: ESC 
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length 

INT PROC length (TAG CONST t, INT CONST feldnr) 
Zweck: llefert die GesamtlSnge des Feldes feldnr von t 

link tag to group 

PROC link tag to group (GROUP VAR g, TEXT CONST tagname) 
Zweck: ordnet tagname der Gruppe g zu 
Fehler: TAG < tagname > unbekannt 

list tags 

PROC list tags 

Zweck: zeigt eine Liste der vorhandenen TAGs auf dem Bildschirm 

load base (* nur single - user - Version *) 

PROC load base (TASK CONST manager task) 
Zweck: Iddt die Datenbank von der manager task 
Fehler: load impossible, base already existing; 
DB - Version zu alt 

PROC load base 

Zweck: Iftdt die Datenbank von der Vatertask 
Fehler: load impossible, base already existing; 
DB - Version zu alt 

menuecursor 

PROC menuecursor (TEXT CONST t) 

Zweck: ersetzt die Darstellung des Menue - Cursors (Standard: = = >) 

minimenue 

PROC minimenue 

Zweck: zeigt das Minimenue (Kommandobuchstaben der nSchsten Menue- 
Anzeige) im Feld 4712 der Rahmenmaske 

monat 

INT PROC monat (INT CONST d) 

Zweck: liefert den Monat fur den Datumscode d 
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multi user base 

PROC multi user base 

Zweck: starlet den Datenbankmanager; eine Datenbasis muB vorhanden sein 
new class 

PROC new class (TEXT CONST name) 

Zweck: richtet neue Klasse mit dem Namen name ein 

Fehler: CLASS einrlchten unmfiglich (kein Platz mehr); 



new conversion table entry 

PROC new conversion table entry (SEGMENT CONST s, 

TEXT CONST wert, INT CONST code) 
Zweck: trSgt in die zu s gehorende Konversionstabelle die Kombination 
wert - code ein 

new group 

GROUP PROC new group (TEXT CONST classname) 

Zweck: erzeugt eine leere temporare Gruppe (ohne Namen) zur Objektklasse 



GROUP PROC new group (TEXT CONST classname, groupname) 

Zweck: erzeugt die leere permanente Gruppe groupname zur Objektklasse 

classname 
Fehler: group table overflow. 

class < classname > not existing. 

duplicate groupname: < groupname > 

new methode 

PROC new methode (SEGMENT CONST s, INT CONST mode) 
Zweck: erzeugt einen neuen Konversions - Methoden - Eintrag mit der 
Nummer s und dem Modus mode 



CLASS existiert schon 



Fehler: 



classname 

grouptable overflow. 

class < classname > not existing 



Fehler: 



0: Zahl 

1: Code (INT) 

2: INT 

Unknown mode: 



- Datum (in der Form tt.mm.jj) 
< mode > 



- Text; 

- Text; 
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new segment 

PROC new segment (TEXT CONST segmentname, classname, 
INT CONST wert) 

Zweck: fCigt zur Klasse classname ein neues INTSEGMENT mit dam Stan- 

dardwert wert hinzu 
Fehler: < segmentname > bereits vorhanden 

PROC new segment (TEXT CONST segmentname, classname, 
REAL CONST wert) 

Zweck: fugt zur Klasse classname ein neues REALSEGMENT mit dem Stan- 

dardwert wert hinzu 
Fehler: < segmentname > bereits vorhanden 

PROC new segment (TEXT CONST segmentname, classname, wert) 

Zweck: fiigt zur Klasse classname ein neues TEXTSEGMENT mit dem Stan- 

dardwert wert hinzu 
Fehler: < segmentname > bereits vorhanden 

PROC new segment (TEXT CONST segmentname, classname, targetclass- 
name, REF CONST wert) 

Zweck: fugt zur Klasse classname ein neues REFSEGMENT segmentname 
hinzu, das REFs auf Objekte der Klasse targetclassname aufneh- 
men kann. Der Standardwert wert muB auf die Zielklasse (target- 
class) Oder keine Klasse (nilref) zeigen. 

Fehler: < segmentname > bereits vorhanden; 
Falscher Beispielref 

PROC new segment (TEXT CONST segname, classname, GROUP VAR g) 
Zweck: fiigt zur Klasse classname ein neues GROUPSEGMENT hinzu mit den 
Eigenschaften von g. Der Name von g und segname mussen uber- 
einstimmen. g darf keinem anderen Segment zugeordnet sein. g wird 
auf 'leer' gesetzt und sollte leer bleiben. Spatere Anderungen der 
Eigenschaften von g (z.B. zugehorige Segmente) gelten fur alia Ein- 
trage in das Segment. 
Fehler: < segname > bereits vorhanden. 
Falsche Beispielgruppe 
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next 

PROC next (REF VAR r) 

Zweck: setzt r auf das nachste Objekt seiner Gruppe Oder Gruppenende 
PROC next (REF VAR r, segment = konstante) 

Zweck: positioniert r weiter auf das nachste Objekt, dessen Segment segment 
(Bezeichner eines TEXTSEGMENTs oder INTSEGMENTs) den Wert 
konstante hat. Wird kein solches Objekt gefunden, dann zeigt r bei 
sortierten Gruppen auf das nachstgroBere Objekt, bei nicht sortierten 
Gruppen hinter das letzte Objekt 

next board line 

INT PROC next boardline 

Zweck: liefert die Zeilennummer nach der letzten nicht leeren Zeile auf dem 
Board (Wert des Zeilenmerkers) 

next class list entry 

PROC next class list entry (TEXT VAR name) 

Zweck: liefert den nachsten Eintrag aus der Liste der Objektklassen. 1st kein 
weiterer Eintrag vorhanden, wird name auf niltext gesetzt. 

next field 

INT PROC next field (TAG CONST t, INT CONST feldnr) 

Zweck: liefert die Nummer des nachsten Feldes nach Feld feldnr in t 

next group list entry 

PROC next group list entry (TEXT VAR groupname, classname) 

Zweck: liefert den nachsten Eintrag aus der Liste der zu Klasse classname 

gehorenden Gruppen. 1st kein weiterer Eintrag vorhanden, werden 

groupname und classname auf niltext gesetzt. 

next screen 

PROC next screen 

Zweck: erhdht die Bildschirm - Versions - Nummer um 1 (mod 32000) 
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next segment 

PROC next segment (SEGMENT VAR s. BOOL VAR gefunden) 
Zweck: liefert den ndchsten Eintrag aus der aktueilen Segmentliste. Diese 
Liste wjrd durch 'begin segment list' initialisiert. Wenn ein Eintrag 
gefunden wurde, wird gefunden auf TRUE gesetzt, sonst FALSE. 

next tag list entry 

PROC next tag list entry (TEXT VAR name) 

Zweck: liefert den nSchsten Eintrag aus der aktueilen TAG -Liste; bei 
Listenende ist name leer 

nil 

PROC nil (TAG VAR t) 

Zweck: erzeugt in t ein leeres Formular 

nildatum 

INT PROC nildatum 

Zweck: liefert das leere Datum 

nilref 

REF PROC nilref 

Zweck: liefert den leeren Zeiger 

no group segment 

PROC no group segment (GROUP CONST g) 
Zweck: entfernt alle Segmentzuordnungen von g 

pack 

PROC pack (TEXT CONST wert, INT VAR code, BOOL VAR okay) 

Zweck: konvertiert wert nach der eingestellten Konversionsmethode, liefert 

den Code in code und TRUE in okay genau dann, wenn die Kon- 

vertierung m6glich war 

PROC pack (TEXT CONST wert. INT VAR code) 

Zweck: konvertiert wert nach der eingestellten Konversionsmethode, liefert 
den Code in code 
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pin 

PROC pin (TAG CONST t, INT CONST spalte, zeile) 

Zweck: heftet t mit der linken oberen Ecke auf das Pinboard an die Stelle 
(spalte, zeile) 

PROC pin (TAG CONST t, INT CONST spalte) 
Zweck: wirkt wie pin (t, spalte. next boardline) 

PROC pin (TAG CONST t) 

Zweck: wirkt wie pin (t, 1 , next boardline) 

PROC pin (TAG CONST t, TEXT CONST symbol) 

Zweck: heftet t mit der linken oberen Ecke auf das erste Zeichen von symbol 
auf dem Pinboard 

PROC pin (TAG CONST t, TEXT CONST symbol, BOOL VAR erfolg) 

Zweck: heftet t mit der linken oberen Ecke auf das erste Zeichen von symbol 

auf dem Pinboard; wenn symbol gefunden wurde, ist erfolg TRUE, 

sonst FALSE 

PROC pin (TEXT CONST text. INT CONST spalte. zeile) 

Zweck: heftet text auf die Position (spalte. zeile) des Pinboards 

prior 

PROC prior (REF VAR r) 

Zweck: setzt r auf das vorhergehende Objekt seiner Gruppe Oder Gruppen- 
ende 

prior field 

INT PROC prior field (TAG CONST t, INT CONST feldnr) 
Zweck: liefert die Nummer des Feldes vor Feld feldnr in t 

protect 

PROC protect (TAG VAR t, INT CONST feldnr, BOOL CONST schreib- 
schutz) 

Zweck: bei schreibschutz = TRUE wird das Feld feldnr in t gegen Schreiben 
geschutzt, andernfalls wird es zum Schreiben ge6ffnet 



Anhang: Funktionen alphabetisch 
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protected 

BOOL PROC protected (TAG CONST t, INT CONST feldnr) 

Zweck: liefert TRUE, wenn Feld feldnr in t schreibgeschutzt ist, sonst FALSE 

put 

PROC put (TAG CONST t, TEXT CONST wert, INT CONST feldnr) 
Zweck: gibt wert auf dem Bildschirm in Feld feldnr von t aus; ggf. wird wert 
gekurzt 

PROC put (TAG CONST t, ROW 100 TEXT VAR werte) 

Zweck: gibt werte auf dem Bildschirm in den Feldern von t aus; ggf. werden 
einzelne werte gekurzt 

PROC put (REF CONST r, TAG CONST t) 

Zweck: gibt die Werte des durch r referierten Objekts auf t aus 

PROC put (REF CONST r) 

Zweck: gibt die Werte des durch r referierten Objekts auf dem zugeordneten 
Formular aus 

PROC put (TAG CONST t, INT CONST symb name, TEXT CONST wert) 
Zweck: gibt den wert auf dem Feld symb name von t aus 

PROC put (TAG CONST t, SEGMENT CONST s, TEXT CONST wert) 
Zweck: gibt den wert auf dem s zugeordneten Feld von t aus 

putget 

PROC putget (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 
Zweck: bietet wert auf dem Feld feldnr von t zum Editieren an 

PROC putget (TAG CONST t, ROW 100 TEXT VAR werte, 
INT VAR feldnr) 

Zweck: bietet werte auf t zum Editieren an; ggf. werden werte bei der Anzei- 
ge gekurzt; feldnr bezeichnet das Feld von t, in das die Schreibmarke 
am Anfang gesetzt werden soli, bzw. in dem sie sich am Ende 
befand (Verlassen nur mit ESC) 

Fehler: startfeld nicht im tag 
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PROC putget (REF VAR r) 

Zweck: bietet die Werte des durch r referierten Objekts auf dem zugeho- 
rigen tag zum Editieren an 

PROC putget (REF VAR r. TAG CONST t) 

Zweck: bietet die Werte des durch r referierten Objekts auf t zum Editieren 
an 

PROC putget (REF VAR r, TAG CONST t, INT VAR feldnr) 

Zweck: bietet die Werte des durch r referierten Objekts auf t zum Editieren 
an; ggf. werden Werte bei der Anzeige gekurzt; feldnr bezeichnet das 
Feld von t, in das die Schreibmarke am Anfang gesetzt werden soli, 
bzw. in dem sie sich am Ende befand (Verlassen nur mit ESC) 

Fehler: Einstiegsfeld gesperrt 

put board 

PROC put board 

Zweck: kopiert board auf die aktuelle Ausgabeeinheit 
PROC put board (FILE VAR datei) 

Zweck: schreibt das Pinboard in die offene output - Datei datei 

put fehler 

PROC put fehler (TEXT CONST msg) 

Zweck: gibt msg auf das Fehlerfeld der Rahmenmaske aus 

put old commands 

PROC put old commands 

Zweck: rekonstruiert die Menue - Rahmenmaske auf dem Bildschirm 
read 

PROC read (REF CONST r, SEGMENT CONST s, TEXT VAR w) 

Zweck: liest den Wert des Segments s des durch r referierten Objekts, kon- 

vertiert ihn nach der s zugeordneten Methode und liefert das Ergeb- 

nis in w 

Fehler: keine Textumwandlung fur diesen Typ (REF- Oder GROUP- 
SEGMENT) 
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PROC read (REF CONST r, INTSEGMENT CONST s, INT VAR w) 
PROC read (REF CONST r. REALSEGMENT CONST s, REAL VAR w) 
PROC read (REF CONST r, TEXTSEGMENT CONST s, TEXT VAR w) 
PROC read (REF CONST r, REFSEGMENT CONST s. REF VAR w) 
Zweck: Nest den Wert des Segments s des durch r referierten Objekts in die 
Variable w; 

Warnung: s muB zur referierten Klasse gehoren, sonst falsches 
Ergebnis 

Fehler: Wrong segment type: <typ> 

PROC read (REF CONST r, GROUPSEGMENT CONST s, GROUP VAR w) 
Zweck: liest den Wert des Segments s des durch r referierten Objekts in die 

Variable w; die Gruppe wert hat die Eigenschaften der zu s geho- 

renden Beispielgruppe; 

Warnung: s muB zur referierten Klasse gehoren, sonst falsches 
Ergebnis 

Fehler: Wrong segment type: <typ> 

read transaction 

PROC read transaction (PROC prozedur) 

Zweck: fuhrt prozedur auf einer Datenbank - Kopie als Lesetransaktion aus; 

Schreibzugriffe erzeugen bei Transaktionsende einen errorstop 
Fehler: Schreibzugriffe wflhrend Lese - Transaktion 

rename tag 

PROC rename tag (TEXT CONST alt. neu) 

Zweck: ersetzt den Namen von TAG alt durch neu 

Fehler: TAG <alt> unbekannt 

reorganize 

PROC reorganize (SEGMENT CONST segment) 
Zweck: reorganisiert den Speicherplatz fur segment 



reorganize grouptable 

PROC reorganize grouptable 

Zweck: I6scht alle unbenutzten (nach forget) Oder temporSren Gruppen 
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reorganize screen 

PROC reorganize screen 

Zweck: rekonstruiert den Bildschirm aus dem Bildwiederholspeicher 
reset 

PROC reset (REF CONST r, SEGMENT CONST s) 

Zweck: schreibt in das Segment s des durch r referierten Objekts den Stan- 
dardwert 

reset sorted 

PROC reset sorted (GROUP CONST g) 

Zweck: kennzeichnet eine Gruppe als 'nicht sortiert' 

restore tag 

PROC restore tag (TAG CONST t. TEXT CONST name) 
Zweck: ersetzt TAG name durch t 
Fehler: TAG <name> unbekannt 

return control 

PROC return control 

Zweck: gibt Kontrolle und Terminal (an aufrufende Task) zuruck 

return symbol 

PROC return symbol (TEXT CONST z) 

Zweck: definiert z ais das Zeichen, bei dessen Eingabe im Menuebaum zum 
Vater zuruckverzweigt werden soli 

TEXT PROC return symbol 

Zweck: liefert das aktuelle Ruckkehr - Zeichen 

return to father 

PROC return to father 

Zweck: geht im Menuebaum zum Vater -Menue zuruck; wird normalerweise 
vom Monitorrahmenprogramm nach jeder Ausfuhrung eines Endkno- 
tens selbstdndig ausgefuhrt 
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save base (* nur sigle - user - Version *) 

PROC save base (TASK CONST manager task) 

Zweck: speichert die Datenbank beim Manager manager task 

Fehler: Inkonsistente Sicherung wegen: <grund> 

PROC save base 

Zweck: speichert die Datenbank bei der Vater-Task 
Fehler: Inkonsistente Sicherung wegen: <grund> 

screen version 

INT PROC screen version 

Zweck: liefert die Bildschirm - Versions - Nummer 
segment 

SEGMENT PROC segment (TEXT CONST name) 

Zweck: liefert den internen Bezeichner des existierenden Segments name 
Fehler: segment not existing: <name> 

SEGMENT PROC segment (TEXT CONST segmentname, classname) 
Zweck: liefert das bereits existierende Segment segmentname der Klasse 
classname 

Fehler: < segmentname > ist kein Segment von Objekten der Klasse < class- 
name > 

segment exists 

BOOL PROC segment exists (TEXT CONST name) 

Zweck: liefert TRUE, wenn Segment name existiert, sonst FALSE 

segment name 

TEXT PROC segment name (SEGMENT CONST s) 
Zweck: liefert den Namen von s 
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segment type 

INT PROC segment type (SEGMENT CONST s) 
Zweck: liefert den Typ des Segments s 

1: TEXT 4: REF 

2: INT 5: GROUP 

3: REAL 0: sonst 

INT PROC segment type (SEGMENT CONST s, TEXTSEGMENT VAR t. 
INTSEGMENT VAR i, REALSEGMENT VAR r, 
REFSEGMENT VAR rr, GROUPSEGMENT VAR g) 

Zweck: liefert den Typ des Segments s (s.o.) und den Segmentbezeichner in 
dem entsprechenden Parameter 

set board line 

PROC set boardline (INT CONST zahl) 
Zweck: setzt den Zeilenmerker auf zahl 

set field infos 

PROC set field infos (TAG VAR t, INT CONST feldnr, 

BOOL CONST closed, protected, secret) 
Zweck: setzt die angegebenen Eigenschaften fur Feld feldnr von t; 

z.Zt. wird nur protected und secret unterstutzt 

set last edit values 

PROC set last edit values 

Zweck: stellt fur die ndchste Bearbeitung eines Maskenfeldes (get, putget) die 
Situation (Cursor - Position) beim Verlassen der Maske wieder her 

show 

PROC show (TAG CONST t) 
Zweck: zeigt t auf dem Bildschirm 

PROC show (REF CONST r) 

Zweck: zeigt zu r geh6rendes Formular auf dem Bildschirm 
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sort 

PROC sort (GROUP CONST g, INT CONST n) 

Zweck: sortlert die Gruppe g nach den ersten n Segmenten (nur INT, REAL, 
TEXT) 

Fehler: keine Ordnungsrelation fur segmenttype; 
Sortfehler 

sorted 

INT PROC sorted (GROUP CONST g) 

Zweck: liefert 0, falls g 'unsortiert', sonst die Anzahl der Segmente, nach 
denen g sortlert ist 

sql 

PROC sql (TEXT CONST datelname) 

Zweck: ubersetzt ein SQL - Programm aus der Textdatei datelname, gene- 
riert daraus eIn ELAN - Progamm und fuhrt es aus; sql benotigt dazu 
ein Rahmenprogramm in einer Textdatei mit dem Namen 'join mac' 

store tag 

PROC store tag (TAG CONST t, TEXT CONST name) 
Zweck: speichert t unter dem Namen name 
Fehler: tag already existing 

symbolic name 

INT PROC symbolic name (TAG CONST t, INT CONST feldnr) 
Zweck: liefert den symbolischen Namen des Feldes feldnr von t 

tag 

INT PROC tag (INT CONST d) 

Zweck: liefert den Tag fur den Datumscode d 

TAG PROC tag (TEXT CONST name) 
Zweck: liefert das Formular name 
Fehler: TAG <name> unbekannt 

TAG PROC tag (REF CONST r) 

Zweck: liefert das zu r gehcJrende Formular 
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tag exists 

BOOL PROG tag exists (TEXT CONST name) 

Zweck: TRUE, wenn die Formulardefinition name existiert 

tmj 

PROG tmj (INT CONST d, INT VAR t, m. j) 

Zweck: liefert Tag, Monat und Jahr in t, m, j fur den Datumscode d 
trans 

PROC trans (TEXT CONST pseudoblank inversan inversaus) 

Zweck: ersetzt die entsprechenden Standardzeichen fur die Formulargestal- 

tung (design form) 
Fehler: falsche Eingabe (nicht 3 Zeichen) 

transform 

PROC transform (TAG CONST t, FILE VAR datei) 

Zweck: schreibt Formular t in transform ierter Form in die offene output -Datei 
datei 

PROC transform (FILE VAR datei, TAG VAR t) 
Zweck: erzeugt t aus der offenen input - Datei datei 

PROC transform (TEXT CONST name) 

Zweck: erzeugt aus der Textdatei 'source.name' das Monitor program m in die 
Textdatei 'monitor.name' und den Menuebaum in den Datenraum 
'name*. Zur Generierungszeit muB die Textdatei 'MORCHEL std' mit 
dem Rahmen fur das Monitorprogramm vorhanden sein. AuBerdem 
werden die beiden Standardmasken 'morchelrahmen' und 'morchel- 
menue' verwendet. Zur Ausfuhrung wird 'monitor.name' insertiert und 
mit 'monitor name' gestartet. 

trversion 

INT PROC trversion 

Zweck: liefert die Versionsnummer der Datenbasis; wird bei jeder Schreib- 
transaktion gedndert 
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type text 

TEXT PROC type text (INT CONST segmenttyp) 

Zweck: liefert die Textt>ezeichnung eines Segmenttyps 

Fehler: unknown type nr 

unhold 

PROC unhold (REF VAR r) 

Zweck: I6scht die Referenz r aus der zugehorigen Gruppe; anschlieBend 
referiert r das Objekt, das (vor dem LOschen) mit 'next (r)' erreicht 
worden wdre 

unpack 

PROC unpack (TEXT VAR wert, INT CONST code, BOOL VAR okay) 

Zweck: konvertiert code nach der eingestellten Konversionsmethode, liefert 

den Text in wert und TRUE in okay genau dann, wenn die Konver- 

tierung m6glich war 

PROC unpack (TEXT VAR wert, INT CONST code) 

Zweck: konvertiert code nach der eingestellten Konversionsmethode, liefert 
den Text in wert 

valid value written 

BOOL PROC valid value written 

Zweck: liefert TRUE genau dann, wenn beim letzten 'write' mit Konvertierung 
ein im Sinne der angewendeten Konversionsmethode gultiger Wert 
geschrieben wurde 

version 

INT PROC version 

Zweck: liefert die Versionsnummer des Datenbanksystems 

wochentag 

INT PROC wochentag (INT CONST d) 

Zweck: liefert den Wochentag fur den Datumscode d (So = 0 Sa = 6) 
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write 

PROC write (REF CONST r, SEGMENT CONST s, TEXT CONST w) 

Zweck: konvertiert w nach der dem Segment s zugeordneten Methode und 

schreibt das Ergebnis in das Segment s des durch r referierten 

Objekts 

Fehler: write with illegal type (REF- Oder GROUPSEGMENT) 

PROC write (REF CONST r, INTSEGMENT CONST s, INT CONST w) 
PROC write (REF CONST r, REALSEGMENT CONST s, REAL CONST w) 
PROC write (REF CONST r, TEXTSEGMENT CONST s, TEXT CONST w) 
PROC write (REF CONST r, REFSEGMENT CONST s. REF CONST w) 
PROC write (REF CONST r, GROUPSEGMENT CONST s. GROUP CONST w) 
Zweck: schreibt w in das Segment s des durch r referierten Objekts; 

Warnung: s muB zur referierten Klasse gehoren, sonst falsches 

Ergebnis 

Fehler: Wrong segment type: <typ> 

ref of wrong object class (bei REFSEGMENT) 

write transaction 

PROC write transaction (PROC prozedur) 

Zweck: fuhrt prozedur auf einer Datenbank - Kopie als Schreibtransaktion 
aus; die geSnderten Datenraume werden nach fehlerloser Ausfuh- 
rung zum Datenbank - Manager ubertragen 

Fehler: Schreib-Transaktion wShrend Lese - Transaktion 

X size 

INT PROC X size (TAG CONST t) 

Zweck: liefert die Breite (Anzahl der Spalten) von t 

y size 

INT PROC y size (TAG CONST t) 

Zweck: liefert die H6he (Anzahl der Zeilen) von t 
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10.4 Syntax des SELECT - Kommandos (sql) 

erforderlich: Rahmenprogramm in Datei "join mac" 



<Kommando> 

< SELECT -teil> 

< segmentliste > 

< segmentid > 

< merkmal > 



< SELECT -teil> <FROM-teil> / 

< SELECT -teil> < FROM- tell > < WHERE -teil> 

"SELECT" < segmentliste > 

< segmentid > / < segmentid > < segmentliste > 

< merkmal > / < merkmal > <outputform> 



<merkmalsname> / 
< groupbezeichner > 



'<merkmalsname> 



<merkmalsname> ::= Name eines Merkmals einer der im FROM-Teil 
angegebenen GROUPs. 

<outputform> ::= "L" <ausgabeiange als ganze Zahl> 

<FROM-teil> ::= "FROM" <groupliste> 

<groupliste> ::= <groupid> / <groupid> "," <groupliste> 

<groupid> ::= <groupname> / 

<groupname> ":" < groupbezeichner > 

<groupname> ::= Name einer in der DB vorhandenen GROUP 

<WHERE-teil> ::= "WHERE" <boolscher ausdruck> 

<boolscher ausdruck> ::= beliebiger boolscher ELAN - Ausdruck, 

Merkmale mussen wie folgt angegeben werden: 
< groupbezeichner > " " <merkmalsname> 



